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IDENTIFICATION 



PRODUCT CODE I 
PFODTjCT NAME I 
PROGRAM DATES 
MAINTAINED I 



AC«8954E«MC 

CZM9AE0 BOOTSTRAP /TERMINATOR (M9301, 
APRIL, 1979 

DIAGNOSTIC ENGINEERING 



THE INFORMATION IN THIS DOCUMENT -IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT RE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION, DIGITAL EQUIPMENT CORPORATION ASSUMES 
*iO RESPONSIBILITY FOR AN y ERRORS THAT MMA y APPEAR 1^ THIS DOCUMENT 

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE 8 . , 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
IFF USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL, 

COPYRIGHT (C) 1976# 1979 BY DIGITAL EQUIPMENT CORPORATION 
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50 ««#****#**##*«**#«#*«**«*##****«#***# 

51 * * 

52 * 5UMKAPY OF OPERATING INSTRUCTION'S # 

53 # * 
54 

55 
56 

57 THF. FOLLOWING PROCEDURE CAN BE USED TO RUN THIS DIAGNOSTIC 

58 IN A DEVICE VERIFICATION MODE * IF THE PROGRAM DOES NOT 

59 PUN SUCCESSFULLY CONSULT THE FOLLOWING DOCUMENT FOR ASSISTANCE, 

60, 

61 OPERATING PROCEDURE! 

62 

63 1 , - LOAD THE PROGRAM USING NORMAL PROCEDURES, 

64 

65 2, LOAD ADDRESS 200 

66 

67 3. SET SWITCH REGISTER TO SELECT THE PROPER 

68 VERSION OF THE ROM UNDER TEST. 

69 (SEE INSTRUCTIONS IE A SOFTWARE SWITCH REGISTER 

70 IS TO BE USED 9 ) 
71 

72 4 e PRESS START 

73 

74 5, THE PFOGRAM SHOULD TAKE ABOUT 1 SEC TO 

75 COMPLETE THE TEST AND PRINT S "END OF TEST M * 
76 

77 6, IF THE FROGRAM DOES NOT RUN AS DESCRIBED 

78 ABOVE* CONSULT THE FULL OPERATING INSTRUCTIONS 

79 WHICH FOLLOW, 
80 

81 

92 * * CAUTION * # 

63 

84 BECAUSE THE CONTENTS READ FpOrt LOCATION 773024 

85 OF THE M9321 OPTION IS CONFIGURATION DEPENDANT (SWITCH 

86 REGISTER DEPENDANT) * THIS LOCATION IS NOT INCLUDED IN 
87* THE DATA CHECK, 

88 THIS LOCATION CAN BE VERIFIED BY EXAMINING IT OP Bi USING 

89 THE ALTERNATE STARTING ADDRESS (SEE SECTION 2,1,3) TO 

90 PRINT OUT THIS LOCATION, 
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91 

92 1,0 GENERAL PROGRAM INFORMATION 

93 . — ... ...» • 

94 

95 1 .1 PROGRAM PURPOSE 

96 

97 

98 THIS DIAGNOSTIC PROGRAM IS INTENDED TO VERIFY THE 

99 ROM CONTENTS OF THE ROM BOOTSTRAP MODULES. THE PROGRAM 

100 COMPUTES AND CHECKS A CYCLIC REDUNDANCY CHARACTER 

101 AND A LONGITUDINAL PARITY CHARACTER FOR THE CONTENTS 

102 OF THE ROM STORAGE AVAILABLE IN AN M9301 OR M9400 MODULE . 
103 

104 A SEPARATE ROUTINE INCLUDED AuLOWS THE USER TO TYPE 

105 THE CONTENTS OF THE ROM STORAGE ON THE TELETYPE AS 

106 AN AID TO DEBUGGING. 
107 

103 1«2 SYSTEM REQUIREMENTS 
109 • — 
110 

Hi 1.2.1 HARDWARE 
113 

114 PDP/11 PROCESSOR 

115 TELETYPE OR EQUIVALENT 

116 4K OF MEMORY 

117 M9301 OR ^9400 MODULE 
118 

119 1*2.2 SOFTWARE 

120 • — . 

121 

122 THIS PROGRAM IS WRITTEN TO HE RUN AS A STAND-ALONE PROGRAM. 

123 HOWEVER, THE PROGRAM IS DESIGNED jO RUN UNDER AUTOMATED 

124 PRODUCT TEST SYSTEM (APT) IN ALL THREE MODES » 
125 

126 THE PROGRAM CAN ALSO BE RUN UNDER THE ACT 11 MONITOR, 
127 

128 1.3 RELATED DOCUMENTS AND STANDARDS 

129 mmwrnmrnm w> w ■» •> w» • w w «» mmm •mmvm&mwmm 

130 

131 DIAGNOSTIC ENGINEERING STANDARDS AND CONVENTIONS PROGRAMMING PRACTICES 

132 DOCUMENT NO. 175-003-009-00 
133 

134 APT INTERFACE SPECIFICATION, REV. 13 
135 

136 1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 

137 m m m m " — — — — — mwmmmmmmm wtsmsiawniiiaowrao 

138 

139 NONE, HOWEVER THE CPU IS ASSUMED TO BE FUNCTIONING 

140 

141 1.5 FAILURE ASSUMPTIONS 

142 ' — • 
143 

144 THE PROCESSOR IS ASSUMED TO BE FUNCTIONING PROPERLY. 
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146 2,0 OPERATING INSTRUCTIONS 

147 

148 

149 2,1 LOADING AND STARTING PROCEDURES 

150 

151 

152 2.1,1 LOADING 

153 . — „ — 

154 

155 USE NORMAL PROCEDURES FOR LOADING DIAGNOSTIC PROGRAMS, 

156 

157 2,1,2 NORMAL START 

158 

159 

160 1, LOAD SOFTWARE SWITCH REGISTER (IF USED) TO SELECT THE 

161 POM VERSION UNDER TEST, (SEE 2,3) 
162 

163 2, LOAD ADDRFS5 200 

164 

165 3, SET HARDWARE SWITCH REGISTER (IF AVAILABLE) TO SELECT THE 

166 ROM VEPSION UNDER TEST (SEE 2,3) . 
167 

168 4, START 

169 

170 2,1,3 OPTIONAL START 

171 www* 

172 

173 THE OPTIONAL STARTING ADDRESS IS USED TO TYPE OUT THE CONTENTS 

174 OF THE RO M FOR USE IN VISUAL VERIFICATION OR AS A DEBUGGING 

175 TOOL, 
176 

177 USE THE SAME PROCEDURE AS A NORMAL START EXCEPT USE 

178 ADDRESS 210 IN STEP 2, 
179 

180 2,2 SPECIAL ENVIRONMENTS 

181 — - — 

182 

183 THIS PROGRAM IS WRITTEN TO COMPLY WITH ALL THE REQUIREMENTS 

184 OF THE APT INTERFACE SPECIFICATION, IT WILL RUN UNDER APT 

185 IN EITHER QUICK VERIFf , PROGRAM OR RUN-TIME MODES. 
186 

187 THIS PROGRAM IS WRITTEN TO COMPLY WITH THE ACT11/XXDP 

188 INTERFACE REQUIREMENTS, 
189 

190 WHEN PUNNING IN ACTU QUICK VERIFY OR XXDP CHAIN MODE 

191 (LOC, 42 NOT <*)# OR APT QUICK VERIFY AND PROGRAM MODE 

192 THE PROGRAM ATTEMPTS TO RUN WITHOUT OPERATOR 

193 INTERVENTION OR SWITCH REGISTER SELECTION, THE 

194 COMPUTED CRC IS COMPARED AGAINST THE CRC FOP ALL KNOWN 

195 VERSIONS OF THE ROM BOOTSTRAP, WHEN A MATCH IS FOUND THE 

196 VERSION OF THE MODULE IS TYPED FOR VISUAL VERIFICATION, 
197 
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198 

199 2.3 PPOGRAM OPTIONS 

200 • 
201 

202 THE PROGRAM AUTOMATICALLY CHECKS FOR THE PRESENCE Of 

203 A HARDWARE SWITCH REGISTER . IF NO RESPONSE IS FOUND WHEN 

204 ADDRESSING THE HARDWARE SWR (177570), THE ADDRESS 

205 OF THE SOFTWARE SWR (176) IS SUBSTITUTED 8 
206 

207 FOR PROCESSORS WITH NO HARDWARE SWITCH REGISTER , THE OPERATOR 

208 SHOULD SET THE DESIRED SWITCH VALUE IN LOCATION 176 
209 

210 WARNING,,, IN ORDER TO ALLOW TESTING OF M7942-KB BOARDS OM THE VT71, 

211 IF LOCATION 176 IS SET TO 6, THE SOFTWARE SWITCH REGISTER WILL BE 

212 USED REGARDLESS OF HARDWARE SWITCH REGISTER AVAILABILITY. 
213 

214 2.3,1 SWITCH SELECTION 

215 mmmm-m 

216 THE SWITCH REGISTER (HARDWARE OR SOFTWARE) IS USED TO SELECT 

217 THE VERSION OF THE ROM BOOTSTRAP TO BE TES1ED 

218 ACCORDING TO THE FOLLOWING TABLE „ NOTE S THESE SETTINGS ARE 

219 OCTAL NUMREP5. THEY ARE NOT PARTICULAR SWITCHES SET TO A 

220 ONE, FOP EXAMPLE, TO SELECT THE M9301-YH VERSION, SET 

221 SWITCHES #3 AND #1 IN THE SWITCH REGISTER, THIS 

222 CORRESPONDS TO AN OCTAL 12. 
223 

224 SWR MODULE VERSION 

225 — 
226 

227 1 M9301-YA 

228 2 H9301-YB 

229 3 M93C1-YC 

230 4 M9400*YA (OP YC ) 

231 5 M9301-YF 

232 6 M7942-YB 

233 7 M9301-YD 

234 10 M9400-YH (OP YK) 

235 11 MP3U REVISION * — SEE NOTE BELOW • 
23o 12 H930WH 

237 U M9301-YE 

238 14 M930WJ 

239 15 M9400-VN 

240 16 M93I1 REVISION A *** SEE NOTE BELOW *#* 
241 

242 NOTE; FOR M9311 ONLY. . ......... 

243 IF RON' IN LOCATION E-5 IS I23-524A9 , THEN 

244 YOU HAVE REVISION #, (I.E, USE SWR U SETTING) 
245 

246 IF ROM IN LOCATION E-5 IS #23-688A9 , 1 HEN 

247 YOU HAVE REVISION A .( I.E. USE SWR 16 SETTING) 
248 

249 

250 IF THE CRC AND LPC FOR NEW VERSIONS ARE KNOWN PUT 

251 NOT IN THE ABOVE TABLE, SET THE SWITCH REGISTER TC ZERO 

252 AND ANSWER THF TELEXYPE DIALOG. ♦ 

253 . . N 
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TO DETERMINE THE CRC AND LPC FOR A NEW VERSION, START 
THE DIAGNOSTIC AT 200 WITH SWP=0 t ANSWER TO THE 
REQUESTS FOP THE LPC AND CRC, THE RESULTING MESSAGES 
WILL INDICATE THE CORRECT FUTURE RESPONSES FOR CRC AND 
LPC PROVIDE THE TEST IS RUN ON A MOWN-GOOD MODULE* 

TELETYPE DIALOG 



SEVERAL QUESTIONS ARE ASKED OF THE OPERATOR IN ORDER 

TO OBTAIN SUFFICIENT INFORMATION FOR TESTING A ROM MODULE 

NOT PREVIOUSLY SUPPORTED IN THE DIAGNOSTIC « THE DIALOG 

IS INITIATED IF THE PROGRAM IS STARTED WITH THE SWR = 0* 

ALL RESPONSES ARE IN OCTAL AND TERMINATED BY A 

CARRIAGE RETURN, 

ALL RESPONSES ARE CHECKED FOR VALID OCTAL NUMBERS , 

IF AN ILLEGAL CHARACTER IS TYPED t THE PROGRAM WILL TYPE 

A *?», CARRIAGE FE1URN-LINE FEED AND 

AWAIT THE PROPER INPUT* 

IF A MISTAKE IS NOTICED BEFORE THE CARRIAGE RETURN IS USED 
TO TERMINATE THE INPUT* A PUBOUT CAN BE 
USED TO DELETE MISTYPED INPUT. 

1, TYPE CRC VALUES 

THIS REQUESTS THE VALUE OF THE CYCLIC REDUNDANCY CHECK 
PREVIOUSLY CALCULATED FOR THIS VERSION OF THE ROM MODULE, 
IT IS THE VALUE AGAIN ST WHICH THE UNIT UNDER TEST'S CRC 
WILL BE COMPARED, 

2, TYPE LPC VALUES 

THIS RFQUESTS THE VAULE OF THE LONGITUDINAL PARITY CHECK 
PREVIOUSLY CALCULATED FOR THIS VERSION OF THE ROM MODULE , 
IT IS THE VALUE AGAINST WHICH THE UNIT UNDER TEST'S LPC 
WILL BE COMPARED, 

3, TYPE STARTING ADDR , OF 1ST ROM ADDR , SPACE* 

THIS QUESTION REFERS TO THE PACT THAT T H E ROM SPACE IN 

A ROM BOOTSTRAP MODULE IS DIVIDED INTO 2 DISTINCT ADDRESS SPACES. TYPE 
THF. STARTING ADDRESS OF THE 1ST RANGE OF ADDRESSES. THE 
STANDARD M9 301 & M<?400 BEGIN AT 173000, 

4, TYPE LENGTH (BYTES) OF 1ST ROM ADDR, SPACES 

THIS REQUESTS THE LENGTH OF THE 1ST GROUP OF POM ADDRESSES 

IN BYTES, THE STANDARD M9301 & M9400 HAVE AN INITIAL ADDRESS SPACE 

OF 1000 BYTES, IF THIS SECTION OF ADDRESSES IS NOT 

USED PY THIS VERSION, ANSWER TO THIS QUESTION , 

5, TYPE STARTING ADDR, OF 2ND ROM ADDR, SPACE S 

THIS REFERS TO THE FIRST ADDRESS IN THE SECOND DISTINCT 
GROUP OF RON' ADDRESSES, THE RESPONSE FOP A STANDARD 
M9301 & M9400 WOULD RE 165000, 

6, TYPE LFNGTH (B YTES) OF 2ND ROM ADDR, SPACE J 

THIS REQUESTS THE LENGTH OF THE 2ND GROUP OF ROM ADDRESSES 

IN BYTES s THE STANDARD M9 301 & M9400 HAVE A SECOND ADDRESS SPACE 
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OF 1000 BYTES. IF THIS SECTION OF ADDRESSES IS NOT USED 
BY THIS VERSION 9 ANSWER TO THIS QUESTION, 

EXECUTION TIMES 



THE DIAGNOSTIC COMPLETES 1 PASS IN LESS THAN 1 SEC « 
ONCE THE INPUT DIALOG HAS BEEN COMPLETED » 

THE PROGRAM WILL HALT UPON COMPLETION f HOWEVER, IF RUNNING 
UNDER APT THE PROGRAM WILL CYCLE CONTINUOUSLY. 



m 
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320 

321 3,0 ERROR INFORMATION 

322 vm&mm mmmmmmmm vmm 

323 

324 WHEN THE DIAGNOSTIC DETECTS A DISCREPANCY BETWEEN THE 

325 EXPECTED AND COMPUTED CRC OR LPC BOTH ARE PRINTED 

326 ON THE TELETYPE* 
327 

328 ANY DISCREPANCY IN THE LPC CAN ASSIST IN ISOLATING THE 

329 PROBLEM TO THE ROM IC t 
330 

331 UNDER APT THE ERROR IS INDICATED BY DEPOSITING ERROR INFORMATION 

332 IN THE APT MAILBOX BEFORE HALTING* 
333 

334 4 S PROGRESS REPORTS 

335 

336 

337 AT THE END OF EACH PASS THE PROGRAM INCREMENTS TO THE 

338 LOCATION $PASS WHICH IS IN THE APT MAILBOX , THIS 

339 LOCATION * ILL ALWAYS CONTAIN THE NUMBER OF PASSES 

340 COMPLETED. SPASS IS RESET WITH EVERY RESTART, 
341 

342 ADDITIONALLY, THE MESSAGE "END OF TEST" IS PRINTED ON THE CONSOLE 

343 TELETYPE AFTER EACH PASS, NORMALLY ONLY ONE PASS NEEDS 

344 TO RUN TO VERIFY THE MODULE e 
345 

346 5,0 TROUBLE SHOOTING 

347 — 
348 

349 THE ALGORITHM FOP COMPUTING THE CRC IS THE SAME AS THAT 

350 USED ON 9-TFACK MAGNETIC TAPE wlTH ODD PARITY. THE 

351 CRC IS CALCULATED ON A BYTE»b Y-BYTE BASIS » WHILE THE 

352 ALGORITHM IS SUCCESSFUL IN DETECTING MULTIPLE ERRORS * ITS 
153 USE AS A DEBUGGING AID IS LIMITED, 

354 

355 THE LPC IS CALCULATED BY ASSEMBLING THE XOR OF EVERY 

356 WORD IN THE ROM, WHILE ONLY USEFUL IN CATCHING AN 

357 ODD NUMBER OF ERRORS IN EACH BIT POSITION , IT IS VERY 

358 USEFUL IN ISOLATING THE PROBLEM TO A CHIP » BY LOCATING rfHiCH 

359 BIT POSITIONS ARE IN DISCREPANCY, THE CORRESPONDING ROM 

360 CHIPS CAN BE ISOLATED , 
361 

362 IF NO OTHF.R CLUES CAN BE OBTAINED, START THE PROGRAM 

363 AT 21P AND COMPARE THE PRINTOUT OF THE CODE WITH THE 

364 LISTING FOR THE VERSION BEING TESTED 9 
365 

366 

367 * * CAUTION # * 

368 

369 BECAUSE THE CONTENTS READ FROM LOCATION 773024 

37P OF THE M9301 OPTION IS CONFIGURATION DEPENDANT (SWITCH 

371 REGISTER DEPENDANT ) , THIS LOCATION IS NOT INCLUDED IN 

372 THE DATA CHECK , 

.173 THIS LOCATION CAN BE VERIFIED BY EXAMINING IT OR BY USING 

374 THE ALTERNATE STARTING ADDRESS ( SEE SECTION 2.1,3) TO 

375 PRINT OUT THIS LOCATION, 
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, ENABLE ABS 
, LIST ME 
.NL1ST MC, MO, CMP 
6SwRs0 

.SRTTL BASIC DEFINITIONS 

;«INIT1AL ADDRESS OF THE STACK POINTER #•# U00 ♦** 



393 


001 100 


STACKS 


1100 




394 




.EQUIV 


EMT, ERROR 


IJBASIC DEFINITION OF ERROR 


395 




.EOUIV 


IOT, SCOPE 


fjBASIC DEFINITION OF SCOPE 


396 










397 




^MISCELLANEOUS DEFINITIONS 


398 


00001 1 


HT* 


11 


I ICODE FOR HORIZONTAL TAB 


399 


000012 


LFs 


12 


jjCODE FOR LINE FEED 


400 


000015 


CR* 


15 


MCCDE FOR CARRIAGE RETURN 


401 


000200 


CRLFs 


200 


JJCODE FOR CARRIAGE RETURN-! 


402 


177776 


PS* 


177776 


MPPOCESSOP STATUS WORD 


403 




.EQUIV 


PS,PSW 




404 


177774 


STKLMTa 


177774 


HSTACK LIMIT REGISTER 


405 


177772 


PlRQs 


177772 


I | PROGRAM INTERRUPT REQUEST 


406 


177570 


DSWRs 


177S70 


IJHAPDWAPF SWITCH REGISTER 


407 


177570 


DDISPa 


177570 


I j HARDWARE DISPLAY REGISTER 


408 
409 




;«GENERAL pHRPOSf 


REGISTEP DEFINITIONS 


410 


000000 


P0s 


%V 


! | GENERAL RF.G1STER 


411 


000001 


Pis 


11 


I I GENERAL REGISTEP 


412 


000002 


R2s 


%2 


I J GENERAL REGISTER 


413 


000003 


R3* 


%J 


I f GENERAL REGISTEP 


414 


000004 


R4s 


%4 


! ^GENERAL REGISTER 


415 


0001405 


P5« 


%5 


| | GENERAL REGISTER 


416 


000006 


F6 = 


%6 


J I GENERAL REGISTER 


417 


000007 


P7s 


%7 


f | GENERAL REGISTER 


418 


000006 


SP* 


%6 


flSTACK POINTER 


419 


000007 


PCs 


%7 


} jPPOGPAM COUNTER 


420 










421 




;*PRI0R1TY LEVEL DEFINITIONS 


422 


000000 


PP.0S 





> JPRIOPITY LEVEL 


423 


000040 


PP1« 


40 


I ^PRIORITY LEVEL 1 


424 


000100 


PR2« 


100 


fJPPIORITY LEVEL 2 


425 


000140 


PR3« 


140 


J f PRIORITY LEVEL 3 


426 


000200 


PR4» 


200 


IIPRIORITY LEVEL 4 


427 


000240 


PR5s 


240 


MPPIORITY LEVEL 5 


428 


000300 


PP6b 


300 


JJPPIOPITY LEVEL 6 


429 


000340 


PR7s 


340 


jf PRIORITY LEVEL 7 


430 










431 




;#"SWITCH REGISTER 


« SWITCH DEFINITIONS 


432 


100000 


SW15* 


100000 




433 


040000 


Sftl4s 


40000 




434 


020003 


SM3s 


20000 




435 


010000 


8*17* 


10000 




436 


004000 


SW1 Is 


4000 




437 


002000 


SW10S 


2000 




438 


001000 


SW09s 


1000 




439 


000400 


S*"0Bs 


400 




440 


000200 


Sw07s 


200 
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44i 


000100 


SW06z 


100 




442 


000040 


SW05s 


40 




443 


0k)0020 


SW04« 


20 




444 


0000 1 


5l*03s 


10 




445 


000004 


SH02a 


4 




446 


000002 


SW01s 


2 




447 


00000 1 


SW00B 


1 




448 




,EGUIV 


SW09, 


SW9 


449 




, EQU I V 


SW08, 


SW8 






,EQUIV 


SW07, 


8W7 


451 




.EQUIV 


SW06, 


SW6 


452 




.EQUIV 


SW05, 


SW5 


45 3 




.EQUIV 


S«04# 


SW4 


454 




.EQUIV 


SW03, 


SW3 


455 




, EQUIV 


SWfc>2, 


SW2 


456 




.EQUIV 


SW01, 


swi 


457 




. EQUIV 


SW00, 


SW0 


458 










459 




;#PATA ! 


3IT DEFINITIONS (BIT00 TO RIT15) 


460 


1 00000 


BIT15= 


1 0000 




461 


(540000 


BIT14B 


40000 




462 


020000 


PIT13s 


20000 




46 3 


d 1 a a (A (A 

v A v w Y* %) 


BIT12a 


10000 






004000 


PITlla 


4000 




465 


002000 


BIT10B 


2000 




466 


00 1 000 


BIT09B 


1000 




467 


000400 


E>IT08a 


400 




468 


000200 


BIT07b 


200 




469 


0001 00 


BlT06a 


100 




470 


000040 


BlT05s 


40 




471 


000020 


BIT04» 


20 




472 


0000 1 


BIT03a 


1* 




473 


000004 


BIT02a 


4 




474 


('00002 


BIT01a 


2 




475 


00000 1 


BIT00B 


1 




476 




, EQUIV 


BIT09 


,BIT9 


477 




.EQUIV 


BIT0B 


,BJTR 


478 




.EQUIV 


PIT07 


,BIT7 


479 




.EQUIV 


BIT06 


,8IT6 


480 




, EQUIV 


B1T05 


,BIT5 


481 




.EQUIV 


BIT04 


,BIT4 


482 




.EQUIV 


EIT03 


,BIT3 


483 




.EQUIV 


BIT02 


«B1T2 


484 




,EQUIV 


BIT01 


,BIT1 


485 




.EQUIV 


BITW0 


,BIT0 


486 










487 




;*BASIC 


"CPU" 


TRAP VECTOR ADDRESSES 


488 


000004 


ERBVFCs 


4 


f I TIME OUT AND OTHER ERRORS 


489 


000010 


BESVECa 


10 


I ^RESERVED AND ILLEGAL INSTRUCTIONS 


490 


000014 


TBITVEC*14 


I f "T" BIT 


491 


000014 


TRTVECa 


14 


I } TRACE TRAP 


492 


000014 


BPTVECa 


14 


ffBREAKPOINT TRAP (BPT) 


493 


000020 


IOIVECa 


20 


| ; INPUT/OUTPUT TRAP (101) *#SCOPE## 


494 


000024 


PWBVECa 


24 


If POWER FAIL 


495 


000030 


EHTVECa 


30 


M EMULATOR TRAP (EMT) ##ERROR## 


496 


000034 


TRAPV*C*34 


) I "TRAP" TRAP 
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BASIC DEFINITIONS 


497 




000060 




TKVECs 60 \ ) TTY KEYBOARD VECTOR 


498 




000064 




TPVFCa 64 J I TTY PRINTER VECTOR 


499 




000240 




PIBGVECS240 | | PROGRAM INTERRUPT kEgUEST VECTOR 


500 




000000 




,80 


501 








.SBTTL TPAP CATCHER 


502 










503 




000000 




,S0 


504 








•♦ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ",*2,HALT" 


505 








;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 


506 








;#LOCATION CONTAINS TO CATCH IMPROPERLY LOADED VECTORS 


507 




000174 




,al74 


508 


000174 


000000 




DISPREGi .WORD f j SOFTWARE DISPLAY REGI5TER 


509 


000176 


000000 




SWREGl .WORD J | SOFTWARE SWITCH REGISTER 


510 




000200 




,a200 


511 


0002(20 


005067 


000624 


CLP TYPOUT 


512 


000204 


000167 


000666 


JMP START 


513 


000210 


012767 


000001 


000612 MOV n t , TYPOUT 


514 


000216 


000167 


000654 


JMP START 


515 










516 




177776 




PSal77776 


517 




000034 




TPAPVEC=34 


518 










519 




001000 




,81000 


520 


001000 


177570 




SWRl 177570 


521 


001002 


177570 




DISPLAYl 177570 


522 


001004 


173000 




R0MSA11 173000 


523 


001006 


001000 




DATLN1I 512, 


524 


001010 


165000 




PQMSA2! 165000 


525 


001012 


001000 




DATLN2I 512, 


526 


001014 


000000 




XORSl 


527 


001016 


000000 




EXCRCI 


528 


001020 


000000 




EXLPCl 


529 


001022 


000000 




ACTCRCI 


530 


001024 


000000 




ACTLPCI 


531 


001026 


000000 




PARCNTI 


532 


001030 


000000 




TYPOUT! 


533 










534 








.SBTTL ACTU HOOKS 


535 










536 








; j •«««*«»»««««»«»#«« »««««•«###««##»#«#«**»*«#«*#»*«««*««##«»*«•«* 


537 








;HOOKS REQUIRED BY ACTU 


538 




001032 




$SVPCa, fSAVE PC 


539 




000046 




,a46 


540 


000046 


002060 




8ENDAD tiUSET L0C.46 TO ADDRESS OF SENDAD 


541 




000052 




.■52 


542 


000052 


000000 




.WORD } > 23SET L0C.52 TO ZERO 


543 




001032 




,a$SVPC I j RESTORE PC 


544 








, SBTTL APT PARAMETER BLOCK 


545 










546 








j I #«««««*«*««*»«»*•«*«•#«*««•«»««»«««»»««»»»«««****««•«#«**«««««« 


547 








jSET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


548 








; I •###»#*####•####•##########*♦###############♦################## 


549 




001032 




•8Xa, | fSAVE CURRENT LOCATION 


550 




000024 




.■24 I f SET POWER FAIL TO POINT TO START OF PROGRAM 


551 


000024 


000200 




200 IlFOR APT START UP 


552 




000044 




.■44 nPOlNT TO APT INDIRECT ADDRESS PNTR, 
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SEU 0013 



553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 



P00044 001032 
001032 



599 

600 
601 
602 
603 
604 
605 
606 
607 
608 



001U32 
001032 
001034 
001036 
001040 
001042 
001 044 



000000 
001046 

000402 

000002 
000000 
000014 



SAPTHDR ;j POINT TO APT HEADER HLOCK 
, = ,8X f t RESET LOCATION COUNTER 

if*************************************************************** 

; SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP1 1 DIAGNOSTIC 
j INTERFACE SPEC , 



SAPTHDI 

6HIBTS ' 

SMBADRi 

STSTMJ 

$PASTM| 

SUMTM1 



.WORD 
, WORD 
.WORD 
.WORD 

.WORD 
,WOPD 



. SPTTL APT MAIlBOX-ETABLt 



;|TWO HIGH BITS OF 18 BIT MAILBOX ADDR, 

$ M a I L n ADDRESS OF APT MAILBOX (BITS 0-15) 
? ; I PUN TIM OF LONGEST TEST 

2 | j RUN TIME IN SECS. OF 1ST PASS ON i UNIT (QUICK VERIFY ) 

I f ADDITIONAL RUN TlMfc, (SECS) OF A PASS FOR EACh ADDITIONAL UN II 

SfTEND-Sf'AIL/2 J j LENGTH M A I LBOX-ET ABLE ( WORDS ) 



569 








, EVEN 








570 


00 104b 






$M A IL 1 






f I APT MAILBOX 


571 


00 1046 


000000 




£ U aft v • 
S W5« III 


.WORD 


AMSGTY 


I } MESSAGE TYPE CODE 


572 


001 050 


000000 




SFATALS 


.WORD 


AFATAL 


f f FATAL ERROR NUMBER 


573 


001052 


000000 




STFSTNl 


. WORD 


ATESTN 


IfTEST ttUMREP 


574 


001054 


000000 




SPASSl 


.WORD 


APASS 


HP&SS COUNT 


575 


001056 


000000 




SDEVCTl 


.WORD 


AHEVCT 


; f DEVICE COUNT 


576 


001060 


000000 




SUNITi 


.WORD 


AUNIT 


! | I/O UNIT FUMBEP 


577 


001062 


000000 




SMSGADi 


.WORD 


AMSGAD 


j 1 MESSAGE ADDRESS 


578 


001064 


000000 




SMSGLGI 


.WORD 


AMSGLG 


I I MESSAGE LENGTH 


579 


001366 






SETABLEs 






IjAPI ENVIRONMENT TABLE 


580 


001066 


000 




ItMVl 


.BYTE 


AENV 


^ENVIRONMENT BYTE 


581 


001067 


000 




SENVMj 


.BYTE 


AENVM 


IfENVIRONMENT MODE BITS 


582 


001070 


000000 




8SWREGI 


.WORD 


ASWREG 


f J APT SWITCH REGISTER 


583 


001072 


000000 




8U8WRI 


.WORD 


AUSWR 


I > USER SWITCHES 


584 


001074 


000000 




SCPU0P1 


, WORD 


ACPUOP 


I ICPU TYPE, OPTIONS 


585 








• # 






PITS 15-1 laCPU TYPE 


586 








; » 






11/04=01 , 1 1/05=02, 1 1/20=03, 1 1/40=04, 1 1/45=05 


587 








; * 






1 1/70=06, PDQ=07,Q=10 


588 








? « 






BIT 1 0»REAL TIME CLOCK 


589 








j # 






BIT 9=FL0AT1NG POINT PROCESSOR 


590 








• # 






BIT 8=MEM0RY MANAGEMENT 


591 


001076 






SETENDI 








592 








.MEXIT 








593 
















594 


001076 


005067 


177746 


START 1 


CLR 


SFATAL 


jCLEAR ERROR NO. 


595 


001 102 


005067 


177740 




CLP 


SMSGTYP 


I CLEAR MESSAGE TYPE (APT) 


596 


001 106 


012767 


000001 


177736 


MOV 


f 1 , $TESTM jSET TEST NO, 


597 








.SBTTL 


INITIALIZE THE 


COMMON TAGS 


598 


001114 


012706 


000500 




MOV 


#500»SP 


IlSETUP THE STACK POINTER 



001120 
001 126 
001134 
001 142 



001150 
001154 
001162 



012737 
012737 
012737 
012737 



013746 
012737 
012767 



004570 
000340 
004412 
000340 



000004 

001210 
177570 



00003 4 

000036 
000024 
000026 



000004 
177610 



j I INITIALIZE A FEW VECTORS 

MOV tSTRAP, PITRAPVEC j|TRAP VECTOR FOR TRAP CALLS 

MOV #340,a#TRAPVEC«-2lLLVEL 1 

MOV «$PWRDN,»#PWRVEC If POWER FAILURE VECTOR 

MOV # 340, (MPWRVEC + 2 I I LEVEL 7 

;>SIZE FOR A HAFDwAF E SWITCH REGISTER, IF NOT FOUND OR IT IS 

; ; FQUAL TO A "-1", SETUP FOR A SOFTWARE SWITCH REGISTER, 

MOV 08ERRVEC,-(SP) jfSAVE ERROR VECTOR 

MOV #64S,a#ERRVEC MSE1 UP ERROK VECTOR 

MOV «DSWR,SWR i i SETUP FOR A HARDWARE SWICH REGISTER 
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CZM9AE, 


PI 1 n 


-APR-79 


10112 




INITIALIZE THE 


COMMON TAGS 




609 


001170 


012767 


177570 


177604 




MOV 


•DD I 5P , DISPLAY I I AND A 


HAPD^APt DISPLAY REGISTER 


610 


001176 


022777 


177777 


177574 




CMP 


#-1 ,?SWR I I TRY TO 


REFERENCE HARDWARE SWH 


611 


001204 


001012 








BNL 


668 i f BRANCH 


IF NO TIMEOUT TRAP OCCURRED 


612 














I J AND THE HARDWARE SWR IS NOT = -1 


613 


001206 


0PP403 








BR 


65S HBNANCH 


IF NO TIMEOUT 


614 


001210 


012716 


001216 




648! 


MOV 


#658, CSP) f I SET UP 


FOR TRAP RETURN 


615 


001214 


000002 








RTI 






616 


001216 


012767 


000176 


177554 


6581 


MOV 


*SWPEG,SWR UPOINT 


TO SOFTWARE SWR 


617 


001224 


012767 


0001 74 


177550 




MOV 


SDISPREG, DISPLAY 




618 


001232 


012637 


000004 




66$ I 


MOV 


(SP) + ,P#EPRVEC J I RESTORE ERROR VECTOR 


619 
620 


001236 


005067 


177612 






CLP 


SPASS } | CLEAR 


PASS COUNT 


621 


001242 


132767 


00020A 


177617 




BITB 


*APTSIZF, StNVM ; | TEST USER SIZE UNDER APT 


622 


001250 


001403 








BEQ 


67S i|YES,USE NON-APT SWITCH 


623 


001252 


012767 


0i? 1 07O 


177520 




MOV 


#SSwREG,SWR UNO, USE 


APT SWITCH REGISTER 


624 


001260 








67SS 








625 


O0126t; 


026727 


176556 


002060 




CMP 


42, * SEND AD 


fACT AUTO MODE? 


b26 


001266 


001 402 








BEQ 


RESTPT 


IYIF SOt BR 


627 


001 270 


104401 








TYPE 






628 


001272 


005276 








TITL 






629 


















630 


001274 


123727 


000176 


000006 


PESTRTl 


CMpB 


»*176, «6 


IIS SOFTWARE SWITCH REGISTER =6? 


631 


001302 


00100 3 








BNE 


IS 


JIF NOT, TEST NORM ALY 


632 


001 30 4 


012767 


0001 7b 


177466 




MOV 


#SWp.EG,SWR 


| IF SO USE THE SOFTWARE SWITCH REG 


633 


001312 


017700 


177462 




IS! 


MOV 


I8SWR,P0 


I GET SWR 


634 


001 316 


001424 








RFQ 


GETIN 


I IF ZEPOl GET INPUT 


635 


001 320 


006300 






ST2I 


ASL 


p? 




636 


001322 


016067 


004714 


177470 




MOV 


TXLPC (P0) , EXLPC 


I FETCH EXPECT. I PC 


617 


001330 


016067 


00 46 44 


177460 




MOV 


TXCPC(R0)#EXCRC 


1 FETCH EXPECTED CRC 


638 


001 336 


016067 


004766 


177442 




MOV 


TPLNl (P0) ,DATLNl 


I FETCH 1ST LENGTH 


639 


001 344 


016067 


(105036 


177432 




MCV 


TRMSAl CP0) ,R0M5A1 


i FETCH 1ST STARTING ADDH, 


640 


001 352 


016067 


005106 


177432 




MOV 


TDLN2CR0) ,DATLN2 


IFE1CH 2ND LENGTH 


641 


001360 


016067 


005156 


177422 




MOV 


TRMSA2CP0) ,R0M5A2 


1 FETCH 2ND STARTING ADDR 


642 


001366 


000450 








BP 


CHECK 


IGO COMPUTE 


643 


001370 


005767 


176446 




GET IN 1 


T5T 


42 


I UNDER ACT AUT ACCEPT? 


644 


001374 


001045 








BNt 


CWFCK 


lIF SOf BR USE DEFAULT PARAMETERS 


645 


001376 


122767 


000001 


177462 




CMPB 


*1,$EHV 


I UNDER APT? 


646 


001404 


001441 








BEQ 


CHECK 


1 IF SO; BR 


647 


G01406 


005767 


177416 






TST 


TYPOUT 


IROM TYPE OPTION 


648 


001412 


001012 








BNE 


GFT2 


lIF SOI BR 


649 


001 414 


104401 








TYPE 






650 


001416 


005311 








GETCPC 






651 


001420 


104407 








RDOCT 






652 


001422 


012667 


177370 






MOV 


(5P)+,EXCRC 


ISTOPE EXPECT, CRC 


653 


001426 


104401 








TYPE 




1 TYPE LPC INPUT REQUEST 


654 


001430 


005335 








GETLPC 






655 


001432 


104407 








RDOCT 






656 


001434 


012667 


177360 






MOV 


(SP) + #EXI.PC 


ISTORE EXPECTED LPC 


657 


001440 


104401 






GET2I 


TYPE 






658 


001442 


005515 








SA1 




I REQUEST 1ST ADDRESS SPACE 


659 


001444 


104407 








RDOCT 




IINPUT SA 


660 


001446 


012667 


177332 






MOV 


CSP)+,R0MSA1 




661 


001452 


104401 








TYPE 




| REQUEST LENGTH OF 1ST ADDR. SPACE 


662 


001454 


005655 








SIZE1 






663 


001456 


lfc4407 








PDOCT 




fINPUT LENGTH 


664 


001460 


012667 


177322 






MOV 


(SP)*,DATLN1 





« 
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CZM9AE.Pl 1 


1 7«APR»79 


10112 




INITIALIZE THE 


CQf'MON TAGS 




6b5 


£41464 


104401 








TYPE 




• DtrnllCCT ef 4t)f Af^nD IT/ID 'J *J H C D h P 


666 


001 466 


005575 








5A2 






6b7 


001 47«5 


104407 








RDOCT 




flWPUT SA 


668 


001 472 


012667 


177312 






MQV 


(SP)t#POMSA2 




663 


001 476 


104401 








TYFE 




IREQUEST LENGTH OF 2ND SPACE 


670 


001 $00 


005735 








SIZE2 






671 


001502 


104407 








PDUCT 




flNPUT LENGTH 


672 


001 504 


012667 


177302 






MOV 


f SP)*,DATLN2 




67 3 


00 1510 


005767 


177314 




CHECK | 


TST 


TYPOUT 


|IS TYPOUT REQUESTED? 


6 7 4 


001 514 


001402 








BEQ 


1 3 


IBRANCH IF NOT 


675 


00 1516 


000167 


00,3660 






JMP 


TYPROM 


JGO TYPF OUT POM 


676 


001522 


005067 


177274 




1 $ I 


CLR 


ACTCPC 


ICLEAR STORAGE FOR ACTUAL CRC 


677 


00 1526 


005067 


177272 






CLP 


ACTLPC 


ICLEAR STORAGE FOP ACTULAL LPC 


678 


001532 


016700 


1 7725*" 






KiO V 


DATLNt ,P0 


ISET LENGTH OF 1ST ROM SPACE 


679 




001413 








BEQ 


CH0 


|IF NO VERSION SELECTED! BR 


680 


00 |540 


016701 


177240 






MOV 


HOM5A1 ,R1 


fPOINT TO Sl'ART OF 1ST ROM SPACE 


68| 


001 544 


004767 


000324 






JSB 


PC, CRC 


ICOMPUTE FIRST hALF OF CRC 


682 


00 1 550 


016701 


177230 






MOV 


pnMSAl »Pi 


JPOINT TO START OF 1ST ROM ADDRS, 


683 


001 554 


016700 


177226 






MOV 


DATLN1 ,P0 


ISET LENGTH OF 1ST ROM ADDRS, 


684 


001 560 


0(46200 








ASP 


R0 


JCONVERI TO WORDS 


685 


001562 


004767 


000556 






JSH 


PC, LPC 


iCOMPUTE FIRST HALF OF CRC 


686 


001 566 


016701 


177216 




CH0 1 


MOV 


ROMSA2»Pl 


JPOINT TO 2ND ROM ADDRS« 


687 


001 572 


016700 


177214 






MOV 


DATt N 2 , P0 


J SET LENGTH OF 2ND ROM ADDRS, 


688 


001576 


001422 








BEQ 


CHI 


1 BR IF THIS SPACE NOT USED 


689 


001 600 


004767 


000270 






JSP 


PC#CRC 


ICOMPUTE REMAINDER OF CRC 


690 


001604 


016701 


177200 






MOV 


POHSA2.R1 


JPOINT TO START OF 2ND ROM ADDPS • 


691 


00161C 


016700 


177176 






MOV 


DATLN2,P0 


ISET LENGTH OF 2ND ROM ADDRS, 


692 


('•01614 


006200 








ASK 


R0 


ICONVERT TO WORDS 


693 


001 616 


004767 


000522 






JSR 


PC, LPC 


JCOMPUTE REMAINDER OF LPC 


694 


001 622 


122767 


000001 


177236 




C^PB 


* 1 , $ENV 


JUNDER APT? 


695 


001 630 


001403 








BEQ 


1 S 


|IF SO! BR 


696 


001632 


005767 


176204 






TST 


42 


Jl'NDEP ACT AUTO ACCEPT? 


697 


001636 


001 402 








BEQ 


CHI 


| IF NOT! BR 


698 


001 640 


000167 


000656 




161 


JMP 


AUTACT 




699 


001 644 


026767 


177146 


177150 


CHl | 


CMP 


EXCRC , ACTCRC 


fCOMPUTED s EXPECTED ? 


700 


001 652 


001431 








PEQ 


CK1 


IIF SO 1 BR 


701 
702 


001654 


104401 








TYPE 




ITYPE CRC ERROR f'ESG, 


703 


001 656 


005361 








EXCRMG 






704 


001 660 


016746 


177132 






MOV 


EXCRC, *(SP) 


|PUT EXPECT CRC ON STAC" 


705 


001664 


1 04402 








TYPOC 




J TYPE EXPECTED CRC 


706 


001666 


1K4401 








TYPE 




1TYPE ACTUAL CRC MfcSSG 


707 


001670 


005430 








ACCPMG 






708 


001 67 2 


016746 


177124 






MOV 


ACTCPC, -CSP) 


|PUT ACTUAL CRC ON STACK 


709 


001676 


104402 








TYPOC 




J TYPE ACTUAL CRC 


710 


001700 


026727 


176136 


002060 




CMP 


42 , * SENDAD 


fUNDEh ACT AUTO MODE? 


711 


001706 


001 404 








BEQ 


IS 


HF SO! BR 


712 


001710 


1 22767 


Vj UI0r»S5 I 


177150 




CMPB 


^ X 9 S E*N V 


iHNhFR APT? 


713 


001716 


001007 








PNE 


CKl 


;IF NOT! BR 


714 


001720 


012767 


000002 


177122 


HI 


MOV 


*2# $FATAL 


f MOVE TO MAILBOX ERROR NO, #*«« 2 


715 


001726 


012767 


000001 


177112 




MOV 


#1 ,8MSGTYP 


! SET MAILBOX FOR FATAL ERROR 


716 


001734 


000000 








HALT 




JCRC ERROR 


717 
718 


001736 


026767 


1776162 


177054 


CKli 


CMP 


ACTLPC, FXLPC 


JCOMPAPE EXPT, LPCaACTUAL LPC 


719 


001744 


001431 








BEQ 


CK2 


IIF SOI Bh 


720 


001746 


104401 








TYPE 




JTYP6 LPC ERROR MESSG, 



CZM9AF, 


,P11 


17»APR»79 


1«I12 


721 


001750 


005404 




722 


001752 


016746 


177042 


723 


001756 


104402 




724 


001760 


104401 




725 


001762 


005453 




726 


001764 


016746 


177034 


727 


001770 


104402 




728 


001 772 


026727 


176044 


729 


002000 


001404 




730 


002002 


122767 


000001 


731 


002010 


001007 




732 


002012 


012767 


000003 


733 


002020 


012767 


000001 


734 


002026 


000000 




735 








736 


002030 


026727 


176006 


737 


002036 


001402 




738 


002040 


104401 




739 


002042 


005476 




7 40 


002044 


005267 


177004 


741 


£02050 


013700 




742 


002054 


001405 




743 


002056 


000005 




744 


002060 


004710 




745 


002062 


000240 




746 


002064 


000240 




747 


002066 


000240 




748 


002070 


000167 


177200 


749 








750 


002074 


016767 


176722 


751 


002102 


111104 




752 


002104 


022701 


173024 


753 


002110 


001004 




754 


002112 


005300 




755 


00211 4 


00«5300 




756 


0021 16 


005721 




757 


002120 


000770 




758 


002122 


004767 


0001 14 


759 


002126 


004767 


000166 


760 


002132 


000241 




761 


002134 


006004- 




762 


002136 


103014 




763 


002140 


052704 


000400 


764 


002144 


000241 




765 


002146 


010405 




766 


002150 


042705 


177703 


767 


002154 


005105 




768 


002156 


042705 


177703 


769 


002162 


042704 


000074 


770 


002166 


050504 




771 


002170 


010467 


176620 


772 


002174 


005300 




773 


002176 


001402 




774 


002200 


000167 


177676 


773 


002204 


016704 


176604 


776 


002210 


005167 


176600 



INITIALIZE THE COMMON TAGS 



002060 
177056 





EXLPMG 








MOV 


EXLPC-(SP) 


IPUI EXPECTED LPC ON STACK 




TYPOC 




J TYPE EXPEC1ED LPC 




TYPF 




I TYPE ACTUAL LPC MESSG, 




ACLPMG 








MOV 


ACTLPC ,-CSP) 


IPUT ACTUAL LPC ON STACK 




TYPOC 




ITYPE ACTUAL LPC 




CMP 


42 » i SENDAD 


I UNDER ACT AUTO MODE? 




BEQ 


IS 


IIF SO 1 SR 




CMPb 


#1 i SENV 


! UNDER APT? 




PNE 


CK2 


I IF NOT I BR 


IS! 


MOV 


* 3 , SFATAL 


IMOVE TO MAILBOX FRROP NO, ***# 




MOV 


»1#$MSGIYP 


f SET MAILBOX FOR FATAL ERPOP 




HALT 




ILPC ERROR 


CK2I 


CMP 


42 # » SENDAD 


JACT AUTO ACCF.PT? 




BEQ 


1$ 


I IF SO 1 BR 




TYPE 




j TYPE END OF TEST 




EOTST 






IS! 


INC 


SPASS 


fBUMP PASS COUNT 




MOV 


8*42, P0 


ICHECK APT 




BF.Q 


GOAGIN 


jKEEP GOING 




RFSET 






SENDAD! 


JSR 


PC, CR0) 


>ACT HOOKS 




NOP 








NOP 








NOP 






GOAGINi 


JMP 


RESTRT 


;D0 AGAIN 


CRCl 


,MOV 


ACTCPC, XOPS 




CL0! 


MOVB 


(Rl),R4 


! GET CHAR » 




CMP 


0173024, PI 


jLOCATION EFFECTED BY SWITCHES 




BNE 


CL3 


IIF N0T1 BP 




DEC 


P0 


|FIX COUNTERS 




DEC 








TST 


(Pi) + 


|FIX POINTER 




PR 


CL0 


JCQNT1NUE 


CL3I 


JSR 


PC, PARITY 


JGO GET PARITY 




JSR 


PCXOR 


IXOR CHAR 




CLC 








ROP 


R4 


1 ROTATE 1 POS, RIGHT 




BCC 


CI 2 


»IF NO CARRY ! BR 




BIS 


#400, R4 


I SET BIT NINE 




CLC 






CL1I 


MOV 


R4,P5 


I SAVE CHAR 




BIC 


11 77703, P5 






COM 


R5 






BIC 


#177703#R5 






BIC 


#74, P4 






BIS 


P5,P4 




CL2I 


MOV 


R4,X0RS 






DEC 


R0 






BEQ 


CLLAST 


I IF LAST CAR, 1 BR 




JMP 


CL0 


I GET NEXT CHAR, ^ 


CLLA5TI 


MOV 


X0RS,R4 






COM 


XOPS 





CZM9AE.P1 1 17-APR-79 HH12 INITIALIZE THE COMMON TAGS 



SEQ k*0l7 



777 


00221 4 


042767 


17 7050 


17 6572 




BIC 


ft 177050» XQP5 




778 


002222 


tA A *l 1 Ok A 

H * 2 7 I 


17 7 7 2 7 






P IC 


H 1 11111 Oil 

# 1 7 7 1 I I $ K** 


tf flMPf.FMFNT ill. HUT HITS 1 r c. 


779 


002226 


050467 


t 76562 






BIS 


R4# XOPS 




780 


002232 


016767 


176556 


1 76562 




MOV 


XOPS# ACTCRC 




781 


002240 


000207 








FTS 


PC 




782 


002242 


005067 


176560 




PARITY I 


CLP 


PARCNT 


} CLEAR BIT COUNTER 


781 


002246 


012703 


0U0010 






MOV 


# 10, R3 


fSET NO. OF BITS 


784 


002252 


032704 


000001 




CLP0 > 


BIT 


# t »F4 


iShZ IF ONE BIT 


785 


002256 


001402 








BEQ 


CLP! 


1 IF NOT 1 BR 


786 


002260 


005267 


1 76542 






INC 


PARCNT 


JRU&1P COUNTER 


787 


002264 


00024 1 






CL.Pl! 


CLC 






788 


002266 


006004 








POR 


P4 


JRUTATE TO NEXT BIT 


789 


002270 


005303 








DEC 


H) 




79«3 


002272 


001 367 








BKE 


CI-P0 


fCONTINUE FOR ALL BITS 


791 


002274 


112104 








MOVR 


(Rl J «-»R4 




792 


002276 


042704 


177 400 






BIC 


* 177400, P4 




793 


002302 


032767 


000001 


1 76516 




BIT 


(t 1 ,PAPCNT 


f SEE IF ODD » OF ONE BITS 


794 


002310 


001002 








BNE 


CLP 2 


1 1 F SOI BR 


795 


002112 


052704 


000400 






BIS 


»400,F4 


JSET PARITY BIT 


796 


002316 


000207 






CLP2 I 


r rs 


PC 


JEX IT 


797 
798 


002120 


010446 






XOPi 


MOV 


P4,-CSP) 


fXQR SUBROUTlNEl R4 WITH XORS 


799 


002322 


046716 


176466 






BIC 


XORS, (SP) 




800 


002326 


040467 


176462 






BIC 


P4,X0RS 




801 


002332 


052667 


1 76456 






BIS 


(SP ) + ,XORS 




802 


002336 


016704 


176452 






MOV 


XOPS , PI 




803 


002342 


000207 








PTS 


PC 




804 


















805 


002344 


W16767 


176454 


176442 


LPC! 


MOV 


ACTLPC ,XOPS 




806 


002352 


012104 






LPCi i 


MOV 


(Ri)*,R4 




807 


002354 


022701 


173026 






CMP 


0173026, Ri 


• f Ar r t T PiKj c C* G" fr E* rs u v Cy,lTPUCC 
JLUCATIUN tr r tCTtu Bi SMUnto 


808 


002360 


001402 








BEQ 


LPC2 


J IK SOI SKIP LOC ■ BY BRANCHING 


809 


002362 


004767 


177732 






JSR 


PC , XOR 




810 


002366 


005300 






I-PC2 I 


DEC 


RP 




811 


CP2J70 


001370 








BNE 


LFC 1 




812 


002372 


01 6767 


176416 


1 76424 




MOV 


XORS, ACTLPC 




813 


002400 


000207 








PTS 


PC 




814 


















815 


002402 


104401 






TYPROMi 


TYPE 




jTYPfc HEADER 


816 


'302404 


006023 








TYPHDR 






817 


002406 


016700 


176372 






MOV 


ROMSAl , F0 


iPOINI QT 1ST ROM SPACE 


818 


002412 


016701 


176370 






MOV 


DATLN 1 , P 1 


JPUT LENGTH IN Rl 


819 


002416 


006201 








ASB 


Rl 


jCOnTERT TO i"ORPS 


820 


002420 


001402 








BEQ 


TYPR 1 




821 


002422 


004767 


000026 






JSR 


PC , TYP 


jGO TYPE 1ST ADDR, SPACE 


822 


002426 


016700 


176356 




TYPR 1 1 


MCV 


R0M5A2, P0 


JpOINT TO 2ND ADDR a SPACE 


823 


0024 3 2 


016701 












jPUT LENGTH IN PI 


824 


002436 


006201 








ASR 


PI 


JCONVEPT TO WORDS 


825 


002440 


001402 








BEQ 


ENDOT 


JBF IF 2ND ADDR, SPACE NOT USED 


826 


002442 


004767 


000006 






JSR 


PC, TYP 


»G0 TYPE 2ND ADDR, SPACE 


827 


002446 


104401 






ENDOT I 


TYPE 






828 


002450 


005476 








EOTST 






829 


002452 


000000 








HALT 






830 


















831 


002454 


104401 






TYP! 


TYPE 






832 


002456 


006015 








CARLF 







.MAIN, MAC Y 1 1 30AC1052) 17-APR-79 



CZM9AE, 


,P11 


17-APR»79 


10112 


833 


002460 


000403 




834 


H02462 


=532700 


0T0003 


835 


302466 


001006 




836 


002470 


104401 




837 


002472 


006015 




838 


U02474 


010046 




839 


002476 


104402 




840 


002500 


104401 




841 


002502 


006060 




842 


002504 


012046 




843 


002506 


104402 




844 


002510 


104401 




845 


002512 


006020 




846 


002514 


005301 




847 


002516 


001361 




848 


002520 


000207 




849 


002522 


005000 




850 


002524 


062700 


000002 


851 


00253b 


026027 


005226 


852 


00 253b 


001425 




853 


002540 


026067 


004644 


854 


002546 


001366 




855 


002550 


023727 


000042 


856 


002556 


001 405 




857 


002560 


016067 


005226 


858 


002566 


104401 




859 


002570 


000000 




860 


002572 


016067 


004644 


8bl 


'402600 


016067 


004714 


862 


302606 


000167 


177124 


863 








864 


002612 


104401 




865 


002614 


0060b4 




866 


002616 


012767 


000001 


867 


002624 


012767 


000001 


868 


002632 


000000 




869 








870 








871 








872 








873 


002634 


177560 




874 


002636 


177562 




875 








876 








877 








878 








879 








880 
881 








882 








883 








884 








885 








886 








887 








888 


002640 


011646 





10114 PAGE 19 

INITIALIZE THE COMMON TAGS 



177777 
176254 
002060 
000002 



176216 
176212 



176224 
176214 



AUT21 
AUT3: 



STKSt 
STKBI 
. ENABL 



BR 


TYP 3 


BIT 


#3,R0 


BNE 


TYP2 


TYPE 




CARLF 




MOV 


R0,»CSP) 


TYPOC 




TYPE 




COLON 




MOV 


f P0)4-,»CSP) 


TYPOC 




TYPE 




SP2 




DF.C 


Fl 


BNE 


TYP0 


PTS 


PC 


CLR 


P0 


ADD 


»2,R0 


f-Mp 


TMSGCP0), t-l 


BEQ 


AUTEPR 


CMP 


1XCPC(P0), ACTCRC 


B"E 


AUT1 


CMP 


g»42, »SENDAD 


BEQ 


Af'T3 


MOV 


TMSG (H0)»AUT2 


TYPE 









MOV 


TXCPCCP0) ,EXCRC 


MOV 


TXLPCf R0) ,EXLPC 


JMP 


CKl 


TYPE 




AUTER*' 




MOV 


* 1 , $FATAL 


MOV 


#1 ,SMSGTYP 


HALT 




TTY INPUT ROUTINE 


, WOPD 


1775b0 


.WORD 


177562 


LSB 




LSB 





JADDFESS MULTIPLE OF 4? 
| IF NOT! BR 



I PUT ADDRESS ON STACK 
; TYPE ADDR, 



fPUT DATA ON STACK 

>TYP DATA 

I TYPE 2 SPACES 

I F I N ISHED ? 
»IF NOTI BR 
| RETURN 

IBUMP TALBE INDEX 

j CHECKED ALL KNOWN VERSIONS? 

JIF SO! bP 

JUOES THIS CPC AGREE? 

(IF NOT I KEEP LOOKING 

j UNDER ACT AUTO ACCEPT? 

JIF SOf BF 

;SET UP VERSION MESSAGE 



»SET EXPECTED CRC 
I SET EXPECTED LPC 
JCHECK LPC * 



jMQVE TO MAILBOX ERROR NO, *»## 
fSET MAILBOX FOR FATAL ERROR 
IAUTO ACCEPT FAILED 



| j TTY KBD STATUS 
\ I TTY KBD BUFFER 



;«THI5 ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
j#CALLl 

;« RDCHP I | INPUT A SINGLE CHARACTER FROM THE TTY 

j* F.FTUPN HERE » ^CHARACTER IS ON THE STACK 

j* JJWITH PARITY BIT STRIPPED OFF 



SRDCHPI MOV 



<SP),-CSP) 



| | PUSH DOWN THE PC 



MAC Y 1 1 3HA(1052) 17-APR-79 10114 PAGE 20 



CZM9AE 


PI 1 


I 7»APR«79 


10112 




TTY INPUT ROUTINE 




ggq 


V 2 6 4 2 


016666 


000fr!04 


5500002 




MOV 


4(SP),2(SP) 


; »SAVE THE PS 


S 90 


002650 


105777 


177760 




1SI 


TSTB 


asTKS 


j jWAIT FOR 


891 


00265 4 


1 03375 








BPL 


1$ 


| | A CHARACTER 


892 


002656 


117766 


177754 


Jfc 0004 




MOVB 


9STKB,4CSP) 


I 1 READ THE TTY 


893 


002664 


0427b6 


1 77600 


000004 




BIC 


»-C<l77>#4(SP) 


I I GET RID OF JUNK IF ANY 


894 


002672 


026627 


0i'j0004 


000023 




CMP 


4(SP),#23 


|?IS IT A CONTROL-S? 


395 


002700 


00 1 1 3 








BNE 


38 


; } BRANCH IF NO 


896 


002702 


105777 


177726 




2$i 


TSTB 


P8TKS 


IfrtAlT FOR A CHARACTER 


897 


002706 


1 00375 








BPL 


25 


IjLQOP UNTIL ITS THERE 


398 


002 7 1 


1 17746 


177722 






MOVB 


»9TKB,-(SP) 


| J GET CHARACTER 




0027 1 4 


042716 


1 7 7 600 






b IC 


9 V. 1 7 7 , I f>F J 


fjMAKE IT 7»BIT ASCII 


900 


002720 


022627 


000021 






Cf'P 


(SP)+,#21 


!|1S IT A CONTROL-Q? 


901 


002724 


001366 








BNE 


2$ 


II IF NOT DISCARD IT 


902 


0027 26 


000750 








BR 


IS 


>|YES, RESUME 


90j 


0027 30 




&nuo\aA 


aaot 1 Act 


391 


CMP 


4(5P),#140 


IlIS IT UPPER CASE? 




0027 36 


uoi 9 An 1 








BLT 


4S 


f | BRANCH IF YES 


905 


0027 40 






acta 1 7 s 

WYf I'D 






4CSP),#175 


| |IS IT A SPECIAL CHAR? 


906 


H02746 


003003 








BGT 


4$ 


JiBPANCH IF *ES 


907 


002750 


042766 


000040 


000004 




BIC 


#40,4(SP) 


1 1 MAKE IT UPPER CASE 


908 


002756 


000002 






4SI 


FT I 




I f GO BACK TO USER 


909 










; } #«#«* 
;*THIS 


POUT INK 


MIL INPUT A STKING FROM THE TTY 


911 










I#CALLI 








912 










;# 


PDLIN 




IlINPtir A STRING FROM THE TTY 


913 










; « 


RETURN 


HERE 


II ADDRESS OF FIRST CHARACTER WILL BE ON 












1* 






| | TERM1 MATOP WILL BE A b YTE OK ALL 0'S 


9 ) 5 
916 


002760 


01 J46 






SPDLIN J 


MOV 


P3,»(SP) 


llSAVE R3 


917 


002762 


005046 








CLR 


«(SP) 


I ICLEAP THE RUBOUT KEY 


918 


002764 


012703 


003214 




l$l 


MOV 


#STTYIN,P3 


1 | GET ADDRESS 


919 


002770 


022703 


003224 




2ft 1 


CMP 


# ITTYIN+B , , R3 


| | BUFFER FULL? 


920 


002774 


101 456 








BL05 


48 


II BP IF YES 


921 


002776 


104405 








PDCHR 




||G0 READ ONE CHARACTER FROM THE TTY 


922 


003000 


112613 








MOVB 


(SP)+, (R3) 


||GET CHARACTER 


953 


003002 


122713 


0001 77 




1031 


CMPB 


#177, (R3) 


||IS IT A RUBOUT 


924 


003006 


00 1 022 








BNE 


58 


||BR IF NO 


925 


003010 


005716 








TST 


(5P) 


IflS THIS THE FIRST RUBOUT? 


926 


00301 2 


001007 








BNE 


6$ 


||BR IF NO 


927 


00301 4 


112767 


000 134 


0001 70 




MOVB 


*'S,9S 


1 1 TYPE A BACK SLASH 


928 


003022 


104401 


0032 1 2 






TYPE 


,96 




929 


003026 


012716 


177777 






MOV 


*-l,(SP) 


IISET THE RUBOUT KEY 


930 


003032 


005 30 3 






611 


DEC 


R3 


| |BACKUP BY ONE 


931 


003034 


020327 


003214 






CMP 


R3» #STTY1N 


J 1 STACK EMPTY? 


932 


003040 


103434 








BLO 


4$ 


||BR IF YES 


933 


003042 


111 367 


000144 






MOVB 


(P3),98 


IISETUP TO TYPEOUT THE DELETED CHAR. 


934 


003046 


104401 


003212 






TYPE 


,9$ 


||G0 TYPE 


935 


003052 


000746 








BP 


26 


I|GO READ ANOTHER CHAR, 


936 


003054 


005716 






SSI 


TST 


(SP) 


llRUBOUT KEY SET? 


937 


003056 


001406 








BEQ 


76 


I | BR IF NO 


938 


003060 


J 12767 


000134 


000124 




MOVB 


#'S,98 


JlTYPE A BACK SLASH 


939 


003066 


104401 


003212 






TYPF 


#96 




940 


003072 


005016 








CLR 


(SP) 


} j CLEAR THE RUBOUT KEY 


941 


003074 


122713 


000025 




7SI 


CMPB 


#25, (P3) 


IlIS CHARACTER A CTRL U? 


942 


003100 


001003 








BNE 


86 


I | BR IF NO 


943 


003102 


104401 


003230 






TYPE 


,8CNTLU 


I 1 TYPE A CONTROL H U" 


944 


003106 


000726 








BR 


J S 


1 |G0 START OVER 



.MAIN, MAC Yl 1 30AC1052) 17-APR-79 10114 PAGE 21 



C2M9AE, 


PI 1 


17»APR»79 


lfcU2 




TTY INPUT ROUTINE 




945 


003110 


122713 


000022 




861 


CMPB 


#22, (P3) 


IlIS CHARACTER A «-R»«? 


946 


003114 


001011 








BNE 


38 


HbRANCH IF NO 


947 


003116 


105013 








CLRB 


(Pi) 


llCLEAP THE CHARACTER 


948 


003120 


104401 


003225 






TYPE 


,8CRLF 


IITYPE A "CR" & "LF" 


949 


003124 


104401 


003214 






TYPE 


, 6TTY IN 


I 5 TYPE THE INPUT STRING 


950 


003130 


000717 








BR 


26 


j|GO PICKUP ANOTHER CHACTER 


951 


003132 


104401 


00 3224 




461 


TYPE 


,SQUE5 


IITYPE A '?' 


952 


003136 


000712 








BP 


1$ 


IICLEAR THE BUFFER AND LOOP 


953 


003140 


111367 


000046 




3$l 


MOVF 


(R3),9S 


| lECHO THE CHARACTER 


954 


003144 


104401 


0U3212 






TYPE 


,96 




955 


003150 


122723 


000015 






CMPB 


#15, (R3J + 


1 iCHFXK FOR RETURN 


956 


003154 


001305 








BNE 


2$ 


IlLOOP IF *»0T RETURN 


957 


003156 


105063 


177777 






CLPB 


-1 (P3) 


IICLEAR RETURN (THE 15) 


958 


003162 


104401 


003226 






TYPE 


,$LF 


IITYPE A LINE FEED 


959 


003166 


005726 








TST 


(SP) + 


I 1 CLEAN RUBOUT KEY FROM THE STACK 


960 


003170 


012603 








MOV 


CSP)+,R3 


I I RESTORE R3 


961 


003172 


U1646 








MOV 


rsp),-csp) 


llADJUST THE STACK AND PUT ADDRESS OF THE 


962 


003174 


016666 


000004 


000002 




MOV 


4(SF),2(SP) 


II FIRST ASCII CHARACTER ON IT 


963 


003202 


012766 


003214 


000004 




MOV 


#STTYIN,4(SP) 




964 


003210 


000002 








RTI 




I | RETURN 


965 


4303212 


000 






9SI 


.BYTE 





| | STORAGE FOR ASCII CHAR, TO TYPE 


966 


003213 


000 








.BYTE 





I ITERMINATOR 


967 


003214 


000010 






STTYINl 


,BLKB 


8, 


I | RESERVE 8 BYTES FOR TTY INPUT 


968 


003224 


077 






8QUESI 


.ASCII 


H ?" IIOUESTION MARK 


969 


001225 


015 






tCRLFi 


.ASCII 


<15> f CARRIAGE RETURN 


970 


003226 


000012 






SLFi 


.ASCIZ 


<12> IlLINE 


FEED 


971 


003230 


052536 


00501 5 


000 


SCNTLUI 


.ASCIE 


/*U/<15><12> 


II CONTROL "U" 


972 


003235 


116 


00650 7 


000012 


6CNTLG1 


, ASCIZ 


/"G/<15><12> 


IICONTROL "G" 


973 


003242 


005015 


053523 


020122 


SMSWRt 


.ASCIZ 


<15><12>/SWR a 


/ 


974 


003230 


020075 


P00 












975 


003253 


040 


047040 


053505 


SMNEWi 


.ASCIZ 


/ MEW a / 




976 


001260 


036440 


00004P 












977 










.SBTTL 


READ AN 


OCTAL NUMBER FROM THE TTY 


978 
979 










1 1 «««««*#«««»#*««*»««*«««»«*******»#»*«*»*»»««#***«»#**»»«#«**»#« 


980 










|*THIS 


ROUTINE 


WILL READ AN OCTAL (ASCI I } NUMBER FROM THE TTY AND 


981 










l#CHANGE IT TO 


BINARY. 




982 










l#THE INPUT CHARACTERS WILL BE 


CHECKED TO INSURED THEY ARE LEGAL 


983 










|*OCTAL 


DIGITS. 


IF AN ILLEGAL CHARACTER IS READ A "?" WILL BE TYPED 


984 










.-•FOLLOWED BY A 


CARRIAGE RETURN 


"LINE FEED, THE COMPLETE NUMBER MUST 


983 










|#THEN 


BE RETYPED, THE INPUT IS 


TERMINATED BY TYPING A CARRIAGE RETURN, 


986 










j#CALM 








987 










I* 


RDOCT 




1 1 READ AN OCTAL NUMBER 


988 










• «• 


RETURN 


HERE 


||LOW ORDER BITS ARE ON TOP OF THE 5TACK 


989 










;# 






llhIGH ORDER BITS ARE IN 8HI0CT 


990 
991 


003264 


011646 






0RDOCTI 


MOV 


(5P),-(5P) 


IjPROVIDE SPACE FOP THE 


992 


003266 


016666 


000004 


000002 




MOV 


4(SP)#2(SP) 


II INPUT NUMBER 


993 


903274 


010046 








MOV 


P0,»(SP) 


| |PUSH R0 ON STACK 


994 


003276 


010146 








MOV 


R1,«(SP) 


IIPU8H Rt ON STACK 


995 


003300 


010246 








MOV 


P2,-(5P) 


j |PUSH R2 ON STACK 


996 


003302 


104406 






161 


RDLIN 




I | READ AN ASCIZ LINE 


997 


003304 


012600 








MOV 


(SP}+,R0 


1 | GET ADDRESS OF 1ST CHARACTER 


998 


003306 


010067 


000100 






MOV 


R0,56 


HAND SAVE IT 


999 


003312 


003001 








CLR 


PI 


I |CLEAR DATA WORD 


1000 


003314 


005002 








CLP 


R2 





,MAIN, MAC Y 1 1 30A (1052) 17-APR-79 105 H PAGE 77 

C2M9AE.Pl 1 17-AFR-79 1 1 1 2 READ AN OCTAL NUfPER FROM THE TT Y 



Sh'U wt'-i 1 



1 1 


J 3 1 6 


1 120 4b 






2 S I ' V a 


( R0 ) ♦ # • ( SP ) 


• i u t r v 1 1 d tuiu fusoif n.*u 
J | r li- " U" Inlo LnRrHWltn 


1 002 


00 3 3 20 


00 14 20 






BEQ 


^\ 


} t if ifcHU uLI UU 1 


t 00 3 


t' 3 3 2 2 


1 22716 


000C60 




C-'PB 


* i (SP) 


J f "i f* r> C 3 U K C I n X Q WrlflHAwit-'K 


10tf 4 


003326 


00 3026 






PGT 


4 S 


"lid An UC I AL U X <j 1 I 


1 005 


003330 


5 227 1 ^ 


000067 




CMPB 


S *7, (SP) 






003334 


002423 






PLT 


4S 




1007 


i: 3 3 3 6 


006301 






ASL 


R 1 


1 1*2 


1 008 


003 3 40 


006 102 






ROL 


P2 




1 009 


003342 


006301 






ASL 


PI 


11*4 


1010 


00334 4 


006 102 






POL 


P2 




1011 


003346 


006301 






ASL 


Pt 


; i*8 


1012 


003 350 


006102 






ROL 


R2 




1013 


003352 


04271 6 


177770 




BIC 


«"C7, (SP) 


; j STR I P THE ASCII JUNK 


1014 


003356 


062601 






ADD 


(SP)+,R1 


JfADD IN THIS DIGIT 


1015 


003360 


000756 






BR 


2S 


j j LOOP 


1016 


0fc>3362 


P05726 






31 t TST 


(SP) + 


I I C LEAN TERMINATOR FROM STACK 


1017 


003364 


0101 66 


000912 




MOV 


Rl , 1 2(SP ) 


jjSAVE THE RESULT 


1018 


003 370 


010267 


000026 




MOV 


R2, SHIOCT 




1019 


'301374 


012602 






MOV 


(SP)+,R2 


f ;POP STACK INTO R2 


1020 


0P3376 


01 2601 






MOV 


(SP)+,R1 


JlPOP STACK INTO Rl 


1021 


003400 


01 2600 






MOV 


(SP)+,R0 


If POP STACK INTO R0 


1022 


033402 


000002 






RTI 




I f P F T U R f I 


1023 


003404 


0^5726 






4$l TST 


(SP) + 


ff CLEAN PARTIAL FROM STACK 


1024 


00340ft 


105010 






CLHB 


(P0) 


t f SET A TERMINATOR 


1025 


00341^ 


104401 






TYPE 




flTYPE UP THRU THE BAD CHAR, 


1026 


003412 


000000 






5 ft I . WORD 







1027 


003414 


164401 


0^3224 




TYPE 


,SQUES 


ft "7* "CP" & "LF» 


1028 


003420 


000730 






BR 


H 


I I TRY AGAIN 


1 029 


003422 


000000 






SHIOCT! .WORD 





1 1 HIGH ORDER PITS GO HERE 


1030 










,5BTTL TYP^ 


ROUT INF., 




1011 
















1032 










;;«#««*«#«««« 






1033 










•^ROUTINE TO 


TYPE ASCIZ MESSAGE 


, MESSAGE MUST TERMINATE WITH A BYTE, 


1034 










J*THE routine 


WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINK FEED . 


1035 










;»NQTEl ! 


SNULL CONTAINS 


THE CHARACTER TO BE USED AS THE FILLER CHARACTER, 


1 036 










;*N0TE2l 


SPILLS CONTAINS 


THE NUMBER OF FILLER CHARACTERS REQUIRED. 


1037 










•*NGTE3. 


SFILLC CONTAINS 


THE CHARACTER 10 FILL AFTER, 


1038 










J * 






1039 










;*CALL! 






1 04O 










}*1) USING A 


TRAP INSTRUCTION 




1041 










;* TYPE 


, MESADP 


; ; ME S ADR IS FIRST ADDRESS OF AN ASCIZ STRING 


1042 










;»0P 






1043 










;* TYPE 






1 044 










;* MESADP 




1045 










• * 






1046 
















10 47 


003424 


105767 


000 265 




STYPEl TSTB 


STPFLG 


» !lS THERF A TERMINAL? 


1048 


003430 


100002 






RPL 


IS 


J I BR IF YES 


1049 


003432 


000000 






HALT 




If HALT HERE IF NO TERMINAL 


1050 


003434 


000430 






bP 


38 


f J LEAVE 


1051 


003436 


010046 






IS! MOV 


R0,-(SP) 


If SAVE R0 


1052 


003440 


017600 


000002 




MOV 


92(SP) »R0 


1 1 GET ADDRESS OF ASCI2 STRING 


1053 


003444 


122767 


000001 


175414 


CMPB 


HAPTEMV, 8FMV 


J iRUNNING IN APT MODE 


1054 


003452 


00101 1 






BWE 


62S 


J|NO,GO CHECK FUR APT CONSOLE 


1055 


003454 


132767 


000100 


175405 


BITR 


# APTSPOOL, SF.NVM 


| jSPOOL MESSAGE TO APT 


1056 


003462 


001405 






BEU 


62S 


|JN0»G0 CHECK FOR CONSOLE 
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1057 


003464 


O10067 


000004 






MOV 


F0,61$ 


Jf SETUP MESSAGE ADDRESS FOR APT 




1058 


003470 


004767 


000230 






JSR 


PC , S ATY3 


|j SPOOL MESSAGE TO APT 




1059 


003474 


000000 






61SI 


, WORD 





; f MESSAGE ADDRESS 




1060 


003476 


132767 


000040 


175363 


62$: 


PITB 


#APTC5UF,$ENVM 


ffAPT CONSOLE SUPPRESSED 




1061 


003504 


00100 3 








BNF 


6CS 


J !YES,SKIP TYPE OUT 




1062 


003506 


112046 






2$: 


MOVB 


(R0)+,-(SP) 


;;PUSH CHARACTER 10 BE TYPED ONTO 


STACK 


1063 


003510 


001005 








RNE 


4$ 


MBR IF IT ISN'T THE TERMINATOR 




1064 


003512 


005726 








TST 


(SP) + 


j I IE TERMINATOR pop If OFF THF STACK 


1065 


003514 


012600 






60$! 


MOV 


(SF)+,B0 


1 | RESTORE R0 




1066 


003516 


062716 


0P0002 




3$I 


ADD 


•2, (SP) 


; f ADJUST RETURN PC 




1007 


003522 


000002 








PTI 




I J RETURN 




1068 


003524 


122716 


00O01 1 




4$; 


CMPB 


Jtl'T, (SP) 


mbranch if <HT> 




1069 


00353.5 


001 430 








BEQ 


86 






1070 


003532 


122716 


000 200 






CMPB 


#CPLF, (SP) 


f j BRANCH IF NOT <CRLF> 




1071 


003536 


001006 








BNE 


56 






1072 


003540 


005726 








TST 


(SPH 


! f POP <CRXLF> EQUIV 




1073 


003542 


104401 








TYPE 




J I 1YPE A CR AND LF 




1074 


003544 


003225 








SCRLF 








1075 


003546 


105067 


000130 






CLPB 


SCHARCNT 


t 1 CLEAR CHARACTER COUNT 




1076 


003552 


000755 








BP 


2S 


> I GET NEXT CHARACTER 




1077 


003554 


004767 


000^56 




5$l 


JSR 


PC , 8TYFEC 


MGO TYPE THIS CHARACTER 




1078 


003560 


126726 


PU0130 




6$I 


CMPB 


SFILLC, (SP) + 


>!lS IT TIME FOP FILLER CHARS.? 




1079 


003564 


001350 








BNF 


2$ 


J ! IF MO GO GET NEXT CHAR, 




1080 


003566 


016746 


000120 






MOV 


SNULL, -(SP) 


1 I GET # OF FILLER CHARS, DEEDED 




1081 
















; f A N D THE NULL CHAR, 




1082 


003572 


105366 


000001 




7SI 


DECB 


KSP) 


MOOES A NULL NEED TO BE TYPED? 




1083 


003576 


002770 








BLT 


6S 


M BR It NO--G0 POP THE null off ot 


STACK 


1084 


003600 


004767 


0v30032 






JSR 


PC,STYPEC 


\ iGO TYPE A HULL 




1085 


003604 


105367 


000072 






DECB 


SCHARCNT 


!|D0 NOT COUNT AS A COUNT 




1086 


003610 


P00770 








BR 


76 


MLOOP 




1087 




















1088 










;HOPIZ0NTAL TAB 


PROCESSOR 






1089 




















1090 


00 3612 


112716 


01)0040 




P 3 I 


MOVB 


** »(SP) 


; > REPLACE TAB WITH SPACE 




1091 


003616 


004767 


0<*001 4 




9St 


JSR 


PCSTYPEC 


1 > TYPE A SPACE 




1092 


003622 


132767 


00000 7 


000052 




BITB 


#7, SCHARCNT 


If BRANCH IF NOT AT 




1093 


003630 


001372 








BNE 


9S 


MTAa STOP 




1094 


003632 


005726 








TST 


(SP) + 


If POP SPACE OFF STACK 




1095 


003634 


000724 








BR 


2$ 


J 1 GET NEXT CHARACTER 




1096 


003636 


105777 


000044 




STYPECl 


TSTP 


flSTPS 


If WAIT UNTIL PRINTER IS READY 




1097 


003642 


100375 








BPL 


STYPEC 






1098 


003644 


116677 


000002 


000036 




MOVB 


2(SP),3STPB 


IlLOAD CHAR TO BE TYPED INTO DATA 


REG, 


1099 


fc>03652 


122766 


000015 


000002 




CMPB 


#CR»2(SP) 


HIS CHARACTER A CARRIAGE RETURN? 




1100 


003660 


001003 








BNE 


1$ 


IJBPANCH IF NO 




1101 


003662 


105067 


00001 4 






CLRB 


SCHARCNT 


1 I YES--CLEAR CHARACTER COUNT 




1102 


003666 


000406 








BR 


STYPEX 


1 IEXIT 




1103 


003670 


122766 


000012 


000002 


111 


CMPB 


*LF,2(SP) 


HIS CHARACTER A LINE FEED? 




1104 


003676 


001402 








BEU 


STYPEX 


f f BRANCh IF YES 




1105 


003700 


105227 








INCB 


(PC)* 


f ICOUNT THE CHARACTER 




1106 


003702 


000000 






SCHARCNTl.WORD 





ff CHARACTER COUNT STORAGE 




1107 


003704 


000207 






STYPEXI 


PTS 


PC 






1108 




















1109 


003706 


177564 






STPSl 


, WORD 


177564 


}|TTY PRINTER STATUS REG. ADDRESS 




1110 


001710 


177566 






STPBI 


.WORD 


177566 


UTTY PRINTER BUFFER REG, ADDRESS 




Ull 


003712 


000 






SNULLl 


.BYTE 





f {CONTAINS NULL CHARACTER FOR FILLS 


1112 


003713 


002 






SFILLSI 


• BYTE 


2 


1 f CONTAINS « OF FILLER CHARACTERS 


REQUIRED 
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SEU 002J 



1113 


003714 


W 1 2 






SFILLC 1 


, BYTE 
.BYTE 


1114 


0037 i 5 


000 






$TPf LGl 


1115 










, SBTTL 


APT C 


1116 














1117 
















003716 


1 12767 


YlYl Y7VJX X 


0)01 CO !h 


$ATY 1 | 


MOVF 


1119 


003724 


1 12767 


0(1000 1 


000226 


8A1Y3 ! 


MOVB 


1120 




Vy v7 Yf ^ «J J 








BP 


! ! ?i 


0W17 14 


112767 


000001 


000220 


% A TY 4 i 


MO VB 


1122 














1123 


001742 


f% i (AtA A C 








Lnu 


1124 


low J / * 4 


0101 46 










1125 


003746 












1126 


^3752 


(%(A t A & rh 










1 ! «I 






01 m OKA 1 


175104 




TMPR 


112 


»0 3762 


00 1031 










1 129 


lit! 




£4 CPI £JI 1 IAiA 






RTTR 


1130 




001 425 








nrn 


I if >i 


00377 4 


(AS "J fcOIOI 








Mnv 


1132 




062766 


£^ M fil lA {A O 


A { jl 131 fA iA A 
W Ir) V V3 K> 1 




anD 




V 10 1 V V D 


pint 7 


1750 34 




1 S 


TST 


1134 












BNE 


1135 


0040 1 4 


v t v V O / 


1 75042 








1136 


004020 


1 05720 






28 I 


TSTB 


1137 


004022 


001 376 








BNE 


1138 


004024 


1 6 6 7 


175032 






SUB 


1139 


004030 


0062<*0 








ASR 


1140 


00403 2 


u 1 naci 
v l k %JU 1 


175026 






MOV 


1141 


004036 


012767 


000004 


1 75002 




MOV 


1142 


004044 


00041 3 








hh 


1143 


004046 


017667 


000004 


000016 


3s : 


MOV 


1144 


00405 4 


062766 


000002 


000004 




ADD 


1145 


004062 


01 6746 


17 3710 






MOV 


1146 


004066 


004767 


177332 






J5R 


1147 


004072 


000000 






4$ 1 


, WORD 




004074 








s$t 




1 149 


00407 4 


1 05767 


000P"6 2 




1 05 | 


TSTB 


1150 


004100 


0k) 1 4 1 6 








BEQ 


1151 


004 102 


005767 


1 74760 






T5T 


1152 




001 413 








BEQ 


1153 


004 1 j 


005767 


174732 




1 1 $ I 


TST 


1154 


004 1 1 4 


00 1 375 








BN£ 


1153 


004 1 1 6 


017667 


000004 


174724 




MOV 


1156 


004124 


062766 


000002 


000004 




ADD 


1157 


004 1 32 


005267 


174710 






INC 


1158 


004136 


105067 


000020 




12$: 


CLRB 


1159 


004142 


105067 


000013 






CLRB 


1160 


004146 


105067 


000006 






CLRB 


U61 


004152 


012601 








MOV 


1162 


004154 


012600 








MOV 


1163 


004156 


000207 








PTS 


1164 


004160 


000 






8MFLGI 


.BYTE 


1165 


004161 


000 






SLFLGj 


.BYTE 


1166 


004162 


000 






SFFLGl 


.BYTE 


1167 




004164 








, EVEN 


1168 




000200 






APTSIZE=200 



J J INSERT FILL CHAHS, AFTEP A "LINE FEED" 
I j "TERMINAL AVAILABLE** FLAG (RIT<07>=0sYES) 
APT COMMUNICATIONS ROUTINE 



#1,SFFLG 

* 1 » 8MFLG 
SATYC 

# 1 1 $FFLG 

P0,-(SP) 
R1,-(SP) 
8MFLG 
5$ 

»APTENV#$ENV 
39 

#APTSPOOL,$*;NVM 
33 

g4(SP),R0 
#2,4(SP) 
IMSGTYPE 
IS 

R0# SMSGAD 
(P0) + 
28 

$MSGAD,R0 

P0 

R0, 8MSGLGT 
#4,8MSGTYPE 

58 

(MCSP),4$ 
#2,4(SP) 
177776, «(SP) 
PCITYPE 



fiFFLG 
12$ 
8ENV 
12$ 

$MSGTYPE 

118 

94CSP),IFATAL 

#2,4(SP) 

SMSGTYPE 

8FFLG 

SLFLG 

8MFLG 

(SP)+,R1 

(SP)+,R0 

PC 





»TG REPORT FATAL ERROR 
»T0 TYPE A MESSAGE 

|T0 ONLY REPORT FATAL ERROR 

IPUSH R0 ON STACK 

fPUSH Rl ON STACK 

ISHOULD TXPt A MESSAGE? 

jIF NOTI BR 

I OPERATING UNDER APT? 

| IF NOT I BP 

ISHOULD SPOOL MESSAGES? 

I IF NOT ! BR 

I GET MESSAGE AODR. 

IjBUMP RETURN ADDP, 
JSEE IF DONE W/ LAST XMISSION? 
| IF NOT I WAI1 
JPUT ADDR IN MAILBOX 
f FIND END OF MESSAGE 

jSUB START OF MESSAGE 

I GET MESSAGE LNGTH IN WORDS 

jPUT LENGTH IN MAILBOX 

I TELL APT TO TAKE *SG. 

JPUT MSG ADDR IN JSR LINKAGE 
IfBUMP RETURN ADDRESS 
! PUSH 177776 ON STACK 
f CALL TYPE MACRO 



ISHOULD REPORT FATAL ERROR? 

JIF NOT t BR 

IRUNNING UNDER APT? 

>IF NOTI BR 

fFINISHED LAST MESSAGE? 

»IF NOT I WAIT 

I GET ERROR * 

DBUMP RETURN ADDR, 
> TELL APT TO TAKE ERROR 
»CLEAR FATAL FLAG 
f CLEAR LOG FLAG 
ICLEAR MESSAGE FLAG 
>POP STACK INTO Rl 
fPOP STACK INTO R0 
f RETURN 
(MESSG. FLAG 
jLOG FLAG 
IFATAL FLAG 
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1 169 




000001 




1170 




000100 




1171 




000040 




1172 








1173 








1174 








1175 








1176 








1177 








1178 








1179 
1 160 








1181 








1182 








1183 








1184 








1185 








1186 








1187 








1188 
1189 








1190 








1191 








1192 








1193 








1194 








1195 








1 196 








1197 


004164 


017646 


000000 


1198 


004170 


116667 


00PI001 


1199 


004176 


112667 


00l?207 


1200 


004202 


062716 


000002 


1201 


004206 


000406 




U02 


004210 


112767 


000001 


1203 


004216 


112767 


000006 


1204 


004224 


112767 


000005 


1205 


004232 


010346 




1206 


004234 


010446 




1207 


004236 


010546 




1208 


004240 


116704 


000145 


1209 


€04244 


005404 




1210 


004246 


062704 


000006 


1211 


004252 


U0467 


000132 


1212 


004256 


1 16704 


000125 


1213 


004262 


016605 


000012 


1214 


004266 


005003 




1215 


004270 


006105 




1216 


004272 


000404 




1217 


004274 


006105 




1218 


004276 


006105 




1219 


004300 


006105 




1220 


004302 


010503 




1221 


004304 


006103 




1222 


004306 


105367 


000e76 


1223 


004312 


100016 




1224 


004314 


042703 


177770 



10114 PAGE ?5 

APT COMMUNICATIONS ROUTINE 

APTENVB0P1 

APTSPOOLsl00 

APTCSUPS040 

, SBTTL BINARY TO OCTAL (ASCII) AND TYPE 

• )«*»»«««*#«#*««*«**«#*#«««•»•«»*«**«««*#«»««*#«**#*«**««**#«#**» 

;#THIS ROUTINE IS USED TO CHANGE A lfa-BIT BINARY NUMBER TO A 6-DIGIT 
;#OCTAL (ASCII J NUMBER AND TYPE IT, 

.*STYP05---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OK DIGITS TO TYPE 
;*CALLI 

;# MOV M'M,»(SP) | | NUMBER TO BE TYPED 

j# TYPOS ; J CALL FOR TYPEOUT 

.BYTE M }| Na i TO 6 FOP NUMBER OF DIGITS TO TYPE 

;* .BYTE M ; |M«1 OR 

j# nl*TYPE LEADING ZEROS 

•# !|0sSUPPRES5 LEADING ZEROS 

; # 

•*8TYP0N--»-ENTEP HERE TO TYPE OUT MTH THE SAME PARAMETERS AS THE LAST 

;*8TYP05 OR 8TYP0C 

;*CALLI 

f* MOV NUM,-(SP) MNUMBER TO BE TYPED 

;* TYPON ; f C ALL FOR TYPEOUT 

• « 

;#8TYP0C--»LNTEP HERE FOR TYPEOUT OF A 16 BII NUMBER 
;*CALL! 

;# MOV NUM,-(SP) ; > NUMBER TO BE TYPED 

t* TYPOC I I CALL FOR TYPEOUT 



8TYP0N ! 



STYPOSl MOV 

MOVB 
MOVB 
ADD 
BP 

$TYPOCI MOVB 
MOVB 
MOVB 
MOV 
MOV 
MOV 
MOVB 
NEG 
ADD 
MOVB 
MOVB 
MOV 
CLR 
ROL 
BR 
POL 
ROL 
POL 
MOV 
ROL 
DECS 
BPL 
BIC 



&>(SP),»(SP) 

1 (SP)i$»FlLL 

(SPJ+, 80M0DE+1 

#2# (SP) 

8TYP0N 

#1,$0FILL 

#6# $0M0DE+1 

I5,$0CNT 

R3,-(SP) 

R4#»(SP) 

R5,-(SP) 

80MODE+l,P4 

R4 

«6,p4 

R4,80M0DE 

S«FILL,R4 

12(SP),R5 

R3 

R5 

3$ 

R5 

R5 

R5 

P5,F3 
R3 

SOMODE 
7$ 

#177770, P3 



ItPICKUP THE MODE 
I I LOAD ZERO FILL SNITCH 
I j NUMBER OF DIGITS TO TYPE 
IJADJUST RETURN ADDRESS 

IISET THE ZERO FILL SWITCH 
MSET FOR SIX(6) DIGITS 
; f SET THE ITERATION COUNT 
J J SAVE R3 
} f SAVE R4 
; f SAVE R5 

! ) GET THE NUMBER OF DIGITS TO TYPE 

J f SUBTRACT IT FOR MAX, ALLOWED 

MSAVE IT FOR USE 

I i GET THE ZERO FILL SWITCH 

If PICKUP THE INPUT NUMBER 

I ICLEAR THE OUTPUT WORD 

MROTATE MSB INTO "C« 

J J GO DO MSB 

f I FORM THIS DIGIT 



; f GET LSB OF THIS DIGIT 

I > TYPE THIS DIGIT? 

1 1 BR IF NO 

MGET RID OF JUNK 
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BINARY TO OCTAL (ASCII) AND TYPE 



i>£U 0*>2b 



1225 


004320 


00 1 002 








BNE 


4$ 


j ; TEST FOR 


t 226 


004322 


005704 








TST 


R 4 


) 1 SUPPRESS THIS 0? 


122 7 


004 3 2 4 


00 140 3 








BEO 


5$ 


JJtlK if Ito 


1226 


U04326 


M05204 






4$ J 


INC 


R4 


1 fUON'l SlJlrrHE.05 ANlriUKJi, 5 


1 229 


004 3 30 


0527<*3 


0P0060 






bis 


# *0 # R 3 


; j M AKE THIS DIGIT ASCII 


12 30 


004 3 34 


052703 


0fc}0040 




5$ 1 


BIS 


# * i R 3 


JJMAFvfc, AaCii If NUI ALHtADY 


1231 


004340 


1 1 0367 


000040 






MOVB 


R1» 8$ 


jfSAVE FOR TYPING 


1232 


004 344 


1 04401 


00 440 4 






TYPE 


» as 


llGO TYPE THIS DIGIT 


1233 


004 350 


1053*7 


000032 




7$i 


DECP 


SOCNT 


1 1 COUNT BY 1 


1234 


004354 


003347 








BGT 


2$ 


I I BN IF MORE TO DO 


1 235 


004356 


002402 








BLT 


63 


fjttR IF DONE 


1236 


004360 


005204 








INC 


R4 


f ; INSURE LAST DIGIT ISN'T A BLANK 


1237 


H0 4 362 


000744 








RF 


28 


jjGO DO THE LAST DIGIT 


1 238 


£04364 


012605 






6$I 


MOV 


(SP)+»P5 


; J RESTORE R5 


1 239 


004366 


012604 








MOV 


CSP)*»R4 


J > RESTORE R4 


1240 


004370 


012603 








MOV 


(SP)+,R3 


J 1 RESTORE R3 


1241 


004372 


0) 6666 


000C>02 


000004 




MOV 


2(SP),4(SP) 


jjSET THE STACK FOR RETURNING 


1242 


004400 


012616 








MOV 


(SP)+, (SP) 




1 243 


004402 


000002 








RTI 




I fRElURN 


1244 


0P4404 


000 






est 


.BYTE 





* 1 STORAGE FOR ASCII DIGIT 


1 245 


004405 


000 








.BYTE 





IjTFRMIMATOR FOR TYPE ROUTINE 


1 246 


004406 


000 






SOCNTI 


.BYTE 





1 j OCTAL DIGIT COUNTER 


1247 


004407 


000 






80FILL 1 


.BYTE 





j j ZERO FILL SWITCH 


1248 


004410 


000000 






$OMODE I 


.WORD 





} I NUMBER OF DIGITS TO TYPE 


1249 










.SbTTL 


POWEP 


DOWK AND UP ROUTINES 


1250 


















1 251 










******* 








1252 










; POWER 


DOWN ROUTINE 




1253 


00441 2 


012737 


004552 


00002 4 


8PWRDN I 


MOV 


ISILLUP, MPWRVEC 


* >SET FOR FAST UP 


1254 


004420 


012737 


0003 40 


000026 




MOV 


#340> a »PWRVFC«-2 




1255 


004426 


01 0046 








MOV 


Rti>#»(SP) 


MPUSH R0 ON STACK 


1 256 


004430 


010146 








MOV 


»l,-(5P) 


IjPUSH Rl ON STACK 


1257 


004432 


010246 








MOV 


R2i-CSP) 


JIPU5H R2 ON STACK 


1258 


004434 


010346 








MOV 


R3,-CSP) 


JJPUSH R3 ON STACK 


1259 


004436 


010446 








MOV 


P4#«(5P) 


I 1 PUSH R4 ON STACK 


1260 


004440 


010546 








MOV 


P5,-(SP) 


> jPUSH R5 ON STACK 


1 26 1 


fr>04 442 


017746 


174332 






MOV 


P5WR#-C5P) 


} f PUSH eSWR ON STACK 


1 262 


004446 


010667 


000104 






MOV 


SP,SSAVF6 


jjSAVE SP 


1 263 


004452 


0127 37 


004464 


000024 




MQV 


#SPWR?'P,P*PWRVEC 


1 I SET UP VECTOR 


1264 


004460 


000000 








HALT 






1 265 


004462 


000776 








BR 


,-2 


| j HANG UP 


1266 


















1 267 










' ' ***** 








1 268 










; POWEP 


UP ROUTINE 




1 2b9 


004464 


0127 37 


004552 


00002 4 


gp wrup | 


MOV 


#3ILLUP,»»pkRVEC 


1 I SET FOR FAST DOWN 


1270 


004472 


016706 


0C0060 






MOV 


$SAVR6,5P 


» j GET SP 


1271 


004476 


005067 


000054 






CLR 


SSAVR6 


JIWAIT LOOP FOR THE TTY 


1272 


004502 


0U5267 


000050 




IS! 


INC 


S5AVR6 


| j WAIT FOR THE INC 


1273 


004506 


001375 








BNE 


1 S 


JlOF WORD 


1274 


004510 


012677 


174264 






MOV 


(sp)*,sswr 


j jPOP STACK INTO PSWR 


1275 


004514 


012605 








MOV 


CSP)**R5 


JJPOP STACK INIO R5 


1276 


004516 


012604 








MOV 


(SP)+#R4 


j|POP STACK INTO R4 


1277 


004520 


012603 








MOV 


(SP)+ f R3 


* J POP STACK INTO R3 


1278 


004522 


012602 








MOV 


CSP)+,R2 


jjPOP STACK INTO R2 


1279 


004524 


012601 








MOV 


(SP)*#R1 


HPOP STACK INTO Rl 


1280 


004526 


0126C"? 








MOV 


CSP)+,R0 


j 1 POP STACK INTO R0 
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POWER DOWN AMD UP ROUTINES 



1281 


<*04530 


012737 


1282 


004536 


012737 


1283 


004544 


104 401 


1284 


004546 


004560 


1285 


004550 


000002 


1286 


004552 


000000 


1287 


004554 


000776 


1288 


004556 


000000 


1289 


004560 


005015 


1290 


004566 


000122 


1291 






1292 






1293 






1294 






1295 






1296 






1297 






1298 






1299 






1300 


004570 


010046 


1301 


004572 


016600 


1302 


004576 


005740 


1303 


004600 


1 1 100O 


1304 


004602 


00630 1 


1305 


004604 


P1600P 


1306 


004610 


000200 


1307 






1308 






1309 






1310 






1311 


004612 


011646 


1312 


004614 


016666 


1313 


004622 


000002 


1314 






1315 






1316 






1317 






1318 






1319 






1320 






1321 






1322 


004624 


004612 


1323 


004626 


003424 


1324 


004610 


004210 


1325 


004632 


004164 


1326 


004634 


004224 


1327 






1328 






1329 


004636 


002640 


1330 


004640 


002760 


1331 


004642 


003264 


1332 
1333 


004644 


177777 


1334 


004646 


000571 


1335 


004650 


000457 


1336 


004652 


000243 



P04412 000024 
000340 000026 



047520 042527 



000004 000002 



MOV 
MOV 
TYPE 
SPWRMGt .WORD 
PTI 

SILLUPI HALT 

BR ,-2 
SSAVP6 1 

SPOWEP! .ASCIZ <t5><12>"PO*EP" 



#$PKRDN,MPWRVfcC 1 f SET UP THE POWER DOWN VECTOR 
#.140,tMPURVEC*2 I JPFI0:7 

fREPOPT THE POWER FAILURE 
•POWER UPOfcLR FAIL MESSAGE POINTER 



J I THE POWER UP SEQUENCE WAS STARTED 
>> BEFORE THE POWER DOWN WAS COMPLETE 
} jPUT THE SP HERE 



.EVEN 

.SBTTL TPAP DECODER 

• } *#««*«««****«#*«*»*«#«*«*««**#*»«««•»**»*»*»****«#«»*«#*«***»«** 

;#THIS ROUTINE MIL PICKUP 7 HE LOWER BYTE OF THE "TRAP" INSTRUCTION 
f * AND USE IT TO I^CEX THpOUGh THE TRAP TABLE FOR THE STARTING ADDRESS 
;#0F ThE DESIRED ROUTINE, THEN USING THE ADDRESS OBTAINED IT WILL 
;#G0 TO THAT ROUTINE. 



STRAPS 


MOV 


Rfc,-CSP) 


JISAVE R0 




MOV 


2CSPJ #P0 


J f GET TRAP ADDRESS 




TST 


«• (R0) 


IfBACKUP Ht 2 




MOVR 


CR0) ,R0 


If GET RIGHT BYTE OF TRAP 




ASL 




| >POSITION FOP INDEXING 




MOV 


$TRPAD(R0)#R0 


M INDEX TO TABLE 




FTS 


Rf 


; f GO TO ROUTINE 


; JTHIS 


IS USE 


TO HANDLE THE » 


GETPPI" MACRO 


$TPAP2I 


MOV 


<SP),-C5P) 


I JMOVE THE PC DOWN 




MOV 


4(SP)»2(SP) 


J f MOVE THE PSW DOWN 




RTI 




J | RESTORE THE PSW 


.SBTTL 


TRAP 


TABLE 





;*THI8 TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE "TRAP" INSTRUCTION, 



$TRPAD| 



ROUTINE 

, WORD 

8TYPE 

ITYPOC 

8TYP0S 

STYPON 



STRAP2 
I »CALL*T¥PE 
I jCALLbTYPOC 
t ICALL'TYPOS 
; jCALLbTYPON 



IPDCHR > j C ALL«PDCHP 
8RDLIN j »CALL«PDLIN 
SRDOCT j fCALL«RDOCT 



TPAP+1C104401) 
TRAP + 2U04402) 
TRAP+3C104403) 
TRAP4-4C104404) 



TRAP+5(104405) 
TPAP+6C104406) 
TRAP+7( 104407) 



TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS ) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 



TTY TYPEIN CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 
READ AN OCTAL NUMBER FROM TTY 



TXCRCl 



«1 
571 
457 
243 



IM9301 - YA VERSION 
IM9301 - YB VERSION 
IM9301 • YC VERSION 
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1337 


004654 


0i<i0635 


635 


JM9400 


- YACOR YC) VERSION 


1338 


004656 


000207 


207 


»M9301 


• YF VERSION 


1339 


004660 


P00670 


670 


IM7942 


* YB VERSION 


1340 


004662 


000132 


132 


f M930j« 


■ YD VERSION 


1341 


004664 


000374 


374 


IM9400 


- YH (OR YK) VERSION 


1342 


004666 


000630 


630 


1*9311 


VERSION REVISION # (ORIGINAL REV, ) 


1343 


004670 


000536 


536 


JM9J01 


- YH VERSION 


1344 


004672 


000752 


752 


pM9301 


- YE VERSION 


1345 


004674 


000633 


633 


|M9301 


* YJ VERSION 


1346 


004676 


000650 


650 


1*9400 


- YN VERSION 


1347 


00470W 


000710 


710 


1*9311 


VERSIOW REVISION A ( SECOND REV » ) 


1348 


004702 


177777 


-1 






1349 


004704 


177777 


»t 






1350 


004706 


177777 


-i 






1351 


0f»4710 


177777 


-1 






1352 


004712 


177777 


-1 






1353 












1354 


004714 


177777 


TXLPCl -1 






1353 


C04716 


133725 


133725 


1*9301 


- YA VERSION 


1356 


004720 


017563 


17563 


1*9301 


- YB VERSION 


J 357 


004722 


141744 


141744 


JM9301 


« YC VERSION 


1358 


004724 


047613 


47613 


|M9400 


• YACOR YC) VERSION 


1359 


004726 


114175 


114175 


PM9301 


- YF VERSION 


J 360 


P04730 


146126 


146126 


fM.7942 


- Y8 VERSION 


1361 


004732 


132161 


132161 


>H930t 


• YD VERSION 


1362 


004734 


143466 


143466 


1*9400 


- YH (OR YK) VERSION 


1363 


004736 


036751 


36751 


1*9311 


VERSION-- REVISION * (ORIGINAL REV.) 


1364 


004740 


125411 


125411 


1*9301 


«■ YH VERSION 


1363 


004742 


066246 


066246 


1*9301 


- YE VERSION 


1366 


004744 


132367 


132367 


f M9301 


- YJ VERSION 


1367 


004746 


030210 


30210 


JM9400 


- YN VERSION 


1368 


004750 


036743 


36743 


I H 9 3 1 1 


VERSION--REVISION A ( SECOND REV.) 


1369 


004752 


177777 


-1 






1370 


004754 


177777 


-1 






1371 


004756 


177777 


-1 






1372 


004760 


177777 


M 






1373 


004762 


177777 


-1 






1374 


004764 


177777 


-1 






1375 












1376 


C04766 


177777 


TDI-N 1 1 -1 






1377 


004770 


001000 


1000 


1*9301 


- YA VERSION 


1378 


004772 


001000 


1000 


1*9301 


- YB VERISION 


1379 


004774 


001000 


1000 


| M9301 


- YC VERSION 


1380 


004776 


001000 


1000 


»M9400 


- YA(OR YC) VERSION 


1381 


005000 


001000 


1000 


JM9301 


- YF VERSION 


1382 


005002 


004000 


4000 


f M7942 


- YB VERSION 


1383 


005004 


001000 


1000 


JM9301 


- VD VERSION 


1384 


005006 


001000 


1000 


f M9400 


- YH(OR YK) VERSION 


1385 


005010 


001000 


1000 


1*9311 


VERSION REVISION * (ORIGINAL VERSION) 


1386 


005012 


000734 


734 


IM9301 


- YH VERSION 


1387 


005014 


001000 


1000 


JM9301 


- YE VERSION 


1388 


005016 


001000 


1000 


|M9301 


- YJ VERSION 


1389 


005020 


001000 


1000 


f M9400 


- YN VERSION 


1390 


005022 


001000 


1000 


IM9311 


VERSION- REVISION A (SECOND VERSION) 


1391 


005024 


177777 


-1 






1392 


005026 


177777 


-1 
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1393 


005030 


177777 


-1 






1394 


005032 


177777 


-1 






1395 


005034 


177777 


-1 






1396 












1397 


005036 


177777 


TRMSA1 I -1 






1398 


005040 


17 3000 


173000 


JM9301 


- YA VERSION 


1399 


005042 


173000 


173000 


1*9301 


• YB VERSION 


1400 


005044 


173000 


173000 


1*9301 


- YC VERSION 


1401 


005046 


173000 


173000 


»*9400 


- YA(OP YC) VERSION 


1402 


005050 


173000 


17 3000 


JM9301 


- YF VERSION 


1403 


005052 


170000 


170000 


IM7942 


- YB VERSION 


1404 


005054 


173000 


173000 


JM9301 


- YD VERSION 


1405 


005056 


173000 


173000 


JM9400 


- YHCOR YK) VERSION 


1406 


1)05060 


163000 


163000 


l*9ill 


VERSION REVISION * ( ORIGINAL VERSION) 


1407 


005062 


173000 


173000 


|M930l 


- YH VERSION 


1408 


005064 


173000 


173000 


1*9301 


• YE VERSION 


1409 


00506b 


173000 


173000 


1*9301 


- <J VERSION 


1410 


005070 


173000 


173000 


»M930l 


- YN VERSION 


1411 


005072 


163000 


1ft 3000 


fM-9311 


VERSION REVISION A (SECOND VERSION) 


1412 


005074 


177777 


-1 






1413 


00S076 


177777 


-1 






1414 


005100 


177777 


-1 






1415 


005102 


177777 


-1 






1416 


005104 


177777 


-1 






1417 












1 H8 


005106 


177777 


TDLN2I -1 






1419 


0051 10 


001000 


1000 


t*9301 


- YA VERSION 


1420 


005112 


001000 


1000 


>*9301 


- YB VERSION 


1421 


005114 


001000 


1000 


f M9301 


- YC VERSION 


1422 


0051 16 


001000 


1000 


|M9400 


»YA (OR YC) VERSION 


1423 


005120 


001000 


1000 


fM9301 


- YF VERSION 


1424 


005122 


000000 





1*7942 


- YB VERSION 


1425 


005124 


001000 


1000 


fM930i 


« YD VERSION 


1426 


005126 


001000 


1000 


JM9400 


• YH(OR YK) VERSION 


1427 


005130 


001000 


1000 


1*9311 


VERSION REVISION * (ORIGINAL REV.) 


1428 


005132 


000764 


764 


1*9301 


- YH VERSION 


1429 


005134 


001000 


1000 


1*9301 


- YE VERSION 


1430 


005136 


001000 


1000 


IM9301 


- YJ VERSION 


1431 


005140 


001000 


1000 


f M9400 


- YN VERSION 


1432 


005142 


0010fa0 


1000 


»*93li 


VERSION REVISION A (SECOND REV,) 


1433 


005144 


177777 


-1 






1434 


005146 


177777 


-1 






1435 


005150 


177777 


»1 






1436 


005152 


177777 


-1 






1437 


005154 


177777 


-1 






1438 












1439 


005156 


177777 


TRMSA2I -1 






1440 


005160 


165000 


165000 


1*9301 


- YA VERSION 


1441 


005162 


165000 


165000 


|M9301 


« YB VERSION 


1442 


005164 


165000 


165000 


JM9301 


• YC VERSION 


1443 


005166 


165000 


165000 


pM9400 


• YA (OR YC) VERSION 


1444 


005170 


165000 


165000 


>M93«?1 


- YF VERSION 


1445 


005172 


000000 





IM7942 


• YB VERSION 


1446 












1447 


005174 


165000 


165000 


JM9301 


- YD VERSION 


1448 


005176 


165000 


165000 


1*9400 


- YHCOR YK) VERSION 
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SEU k)029 



I 449 


005 200 


1 66000 








166000 


If-' 9311 VERSION REVISION * ( 


I 450 


005202 


1 6 5 fc' 








165000 


1^9301 » Y H VERSION 


t 45 1 


w 5 2 4 


1 63000 








1 65000 


|M930J - YE V EH. 5 ION 


j 452 


R CI S "J 01 fi 


1, o 3 w if ? 








1 b 5000 


JM9301 • YJ VERSION 






4 *s t [l (J l, i 

1 o 3 k" lr? U 








J B3«iril' 




1 454 


00^2 1 2 


1 f% & (A ft 












! < « ' 


005 2 1 4 


1 7 7 7 77 








"1 




1456 


0052 1 6 


177777 








-1 




1457 


005 220 


1 77777 








"1 




1458 


005222 


177777 








•1 




1459 


0052 2 4 


J Tim 








■1 




1 460 
















1461 


005226 


mm 






T^SG | 


•1 




1 462 


0*55230 


0061 06 








MSG1 




146 3 


005232 


006123 








HSG2 




! 1*2 


005234 


006140 












1 465 


0052 36 


006155 








r SG4 




146b 


005240 


006 175 








MSG5 






005 242 


io fr ) b & 1 2 










f H 7 9 4 2 " YB VERSION 


1468 


uWS 241 










MSG7 




1469 




0062 4 4 








MSG 1 








M fJl £ 1 T 








M«r ! o 




1471 


005 25 2 


006347 










■ MQlffii a v H V (•"■ H S T N 


! AT * 


005 254 


006 364 










i y g 1 » < m VP" vruCTDN 

I >*i ? J r 1 i " Xw V c. n O I W r> 


















1474 


005 260 


006 4tt> 








MSG t 5 


|M9400 « YN VERSION 


1 47 5 


0» iA K 1 & ' 3 


niAt* a 1 1 

WlOfJ 4 J J 








MSG 1 6 


> M93H REVISION A ( SECOND 


1476 


005264 


1 77777 












1477 


005266 










"** 






005270 


17 7 7 77 








"* 




« ATO 

* 


005 27 2 


! ZZZ3Z 








ml 




1 480 


00527 4 


177777 








»1 




1481 
















! 4fl \ 


















vV)0 * ' v 




- 


0201 15 


TI TL t 


, ASCIZ 


<15><12>/P0 M TEST/ 


t AO A 

14 8 4 


005 30 4 


042524 


052123 














015 


05 2^ 1 2 


050^3 \ 


GETCBC 1 


ASC I Z 


<15><12>/TYPE CRC VALUEl / 


1 Aflfi 




Wit) 1 r<3 
















fc7 It? D 2 O 




35105 








1 4B8 


005332 


020040 


000 


















0501 31 


GETLPC i 


, ASCIZ 


< 1 5>< I 2>/TYPE LPC VALUEl / 


1490 




020^05 












1491 


005 350 




0525 1 4 


035105 








1492 


005356 


020040 


.300 










1493 


005361 


015 


042412 


050130 


EXCRMGj 


, ASCIZ 


<15><12>/EXPEC1ED CRC * / 


1494 


005366 


041505 


042524 


020104 








1495 


005374 


051103 


020103 


020075 








1496 


005402 


000040 












1497 


5105404 


005015 


04241 2 


050130 


EXLPMGi 


.ASCIZ 


<J5><12><12>/EXPKCTFD LPC s / 


1498 


005412 


041505 


042524 


020104 








1499 


005420 


05fcl 14 


020103 


020075 








1500 


005426 


000040 












1501 


005430 


005015 


047503 


050115 


ACCRMGi 


.ASCIZ 


<15><12>/COMPUTE0 CRC ■ / 


1502 


005436 


052125 


042105 


041440 








1503 


005444 


041522 


036440 


020040 








1504 


005452 


000 













* ( ORIGINAL REV, ) 



C SECOND REV.) 
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1505 


005453 


015 


04H12 


046517 


ACLPMGI 


1506 


005460 


052520 


042524 


020104 




1507 


005466 


050114 


020103 


020075 




1508 


005474 


000040 








1509 


005476 


005015 


042^12 


042116 


EOTSTi 


1510 


005504 


047440 


020106 


W42524 




1511 


005512 


052123 


000 






1512 


005515 


015 


05201 2 


050131 


SA1 t 


1513 


005522 


020105 


052123 


P5U01 




1514 


<»05530 


044524 


043516 


04044k) 




1515 


005536 


042104 


027122 


047440 




1516 


005544 


020106 


051461 


0201 24 




1517 


005552 


047522 


0201 15 


042101 




1518 


005560 


051104 


020056 


050123 




1519 


005566 


041501 


035105 


020040 




1520 


005574 


000 








1521 


005575 


015 


052012 


0501 11 


SR2I 


1522 


005602 


020105 


052123 


051101 




1523 


005610 


044524 


043516 


040440 




1524 


005616 


042104 


027122 


047440 




1525 


005624 


020106 


047062 


020104 




1526 


0J5632 


047522 


0201 1 5 


042101 




1527 


005640 


051 104 


020056 


050123 




1528 


035646 


041501 


035105 


020040 




1529 


005654 


000 








1530 


005655 


015 


052012 


050131 


SIZE1 i 


1531 


005662 


020105 


042514 


043516 




1532 


005670 


044124 


024040 


054502 




1533 


005676 


042524 


024523 


047440 




1534 


005704 


020106 


051461 


020124 




1535 


005712 


047522 


0?«1 15 


042101 




1536 


005720 


<*51 104 


020056 


050123 




1537 


005726 


041501 


035105 


020040 




1538 


005731 


000 








1539 


005735 


015 


052012 


050131 


SIZE2I 


1540 


005742 


020105 


042514 


043516 




1541 


005750 


044124 


024040 


054502 




1542 


005756 


042524 


024523 


047440 




1543 


0P5764 


020106 


047062 


020104 




1544 


005772 


047522 


020115 


042101 




1545 


006000 


051 104 


020056 


050123 




1546 


006006 


041501 


C35105 


020040 




1547 


006O14 


000 








1548 


006015 


015 


000012 




CARLFl 


1549 


006020 


02004P 


000 




SP2I 


1550 


006023 


015 


040412 


042104 


TYPHDRi 


1551 


006030 


042522 


051523 


020040 




1552 


006036 


020040 


020040 


020040 




1553 


006044 


020040 


020040 


020040 




1554 


006052 


042040 


R52101 


000101 




1555 


006060 


020072 


000040 




C0L0N| 


1556 


006064 


005015 


047125 


047113 


AUTERMI 


1557 


006072 


053517 


020116 


047515 




1558 


006100 


052504 


042514 


000040 




1559 












1360 


006106 


005015 


034513 


030063 


MSG1I 



.ASCIZ <15><12>/C0MPUTED LPC a / 
.ASCIZ <l5><l2><12>/EMn OF TEST/ 

.ASCIZ <!5><12>/TYPt STARTING ADDR, OF 1ST POM ADDR, SPACE } / 



, ASCIZ <15><12>/TYPE STARTING ADDR, OF 2ND ROM ADDR, SPACE! / 



.ASCIZ <15><12>/TYPE LENGTH (BYTES) Ot 1ST ROM ADDR. SPACE I / 



.ASCIZ <15><12>/TYPE LENGTH (BYTES) OF 2*D ROM ADDR, SPACE: / 



.ASCIZ <15X12> 
.ASCIZ / / 

.ASCIZ <15><12>/ADDRESS 



.ASCIZ /I / 

.ASCIZ <15X12>/UNKNOWN MODULE / 



, ASCIZ < 15><1 2>/M9301 • YA/ 
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SEU k5fe!il 



ISbl 


0061 14 


020S061 


020055 


040531 






1562 


006122 


000 










1563 


006123 


015 


046412 


031471 


MSG2 I 


,A5C JZ 


1564 


006130 


t:30460 


026440 


054440 






1565 


006136 


000102 










1566 


006140 


U05015 


014515 


03f*0e3 


fcSC3t 


.ASCIZ 


1567 


C061 46 


020061 


020055 


041531 






1568 


006154 


000 










1569 


006155 


0t5 


046412 


932071 


MSG4 1 


.ASCIZ 


1570 


006162 


030060 


026440 


054440 






1571 


006170 


026101 


041531 


000 






1572 


006179 


015 


04641? 


031471 


MSGS 1 


.ASCIZ 


1573 


006202 


0304b0 


02b440 


054440 






1574 


006210 


000106 










1575 


006212 


005015 


033515 


032071 


MSG6 : 


.ASCIZ 


157e 


006220 


020fc'62 


020P55 


041131 






1577 


006226 


000 










1578 


0.46227 


015 


046412 


031471 


KSG7 1 


.ASCIZ 


1579 


006234 


030460 


02644* 


054440 






1580 


006242 


000104 










1581 


006244 


005015 


034M5 


030064 


MSG10I 


.ASCIZ 


1582 


006252 


020060 


020055 


0441 3t 






1583 


006260 


047450 


020122 


045531 






1584 


006266 


000051 










1585 


006270 


005015 


034515 


030463 


MSGHi 


.ASCIZ 


1586 


006276 


0200*1 


042522 


044526 






1587 


006304 


044523 


047117 


020040 






1588 


006312 


020052 


046050 


041517 






1589 


006320 


052101 


047511 


020116 






1590 


006326 


026505 


020^65 


020075 






1591 


006334 


031462 


032455 


032062 






1592 


£0634 2 


034501 


020051 


000 






1593 


006347 


015 


046412 


031471 


MSG12J 


.ASCIZ 


1594 


006354 


030460 


026440 


054440 






1595 


t , <*6362 


000110 










1596 


006364 


005015 


034515 


030063 


WSG13! 


.ASCIZ 


1597 


006372 


020061 


020055 


042531 






1598 


006 400 


000 










1599 


006401 


015 


046412 


031471 


HSG14I 


.ASCIZ 


1600 


006406 


030460 


026440 


054440 






1601 


006414 


000112 










1602 


006416 


00501 5 


034515 


030064 


MSGl 5 I 


.ASCIZ 


1603 


006424 


020060 


020055 


047131 






1604 


006432 


,300 










1605 


006433 


015 


046412 


031471 


MSG16I 


, ASCIZ 


1606 


006440 


030461 


051040 


053105 






1607 


306446 


051511 


047511 


020116 






1608 


006454 


020101 


046050 


041517 






1609 


006462 


052101 


047511 


020116 






1610 


006470 


026505 


020065 


020075 






1611 


006476 


031462 


033055 


034070 






1612 


006504 


0345P1 


020051 


000 






1613 




000001 






.END 





ASCIZ <15><12>/'<9311 REVISION » (LOCATION E-5 * 23-524A9) / 



, MAIN , 


MACY1 1 30AC1052) 


17-APR 


-79 11 


CZM9AE.P1 1 n-APP-79 


10112 




ABASE a 


000000 


569 




ACCRMG 


005430 


707 


1501* 


ACDW1 a 


000000 


569 




ACDW2 * 


030000 


569 




ACLPMG 


005453 


725 


1505# 


ACPUOPs 


000000 


569 


584 


ACTCRC 


001022 


529ft 


676* 


ACTLPC 


001024 


5 30# 


677# 


ADDW0 a 


090000 


569 




ADDW1 a 


000000 


569 




ADD W 1 0s 


000000 


569 




ADDfcl 1« 


000000 


569 




ADD i^f 1 2a 


00000«" 


569 




ADDW13B 


000000 


569 




ADD W 1 4b 


000000 


569 




ADDW15S 


£00000 


569 




ADDW2 « 


£0000^ 


569 




ADDW3 a 


000000 


569 




ADDa4 a 


000000 


569 




ADDW5 s 


000000 


569 




ADDW6 8 


000000 


569 




ADDW7 s 


000000 


569 




ADDW8 s 


fc40000 


5b9 




ADDW9 s 


000000 


569 




ADEVCTs 


000000 


569 


575 


ADEVH b 


003000 


569 




AENV a 


000000 


569 


580 


AENVM a 


000000 


569 


581 


AFATALa 


000000 


569 


572 


AMADP18 


000000 


569 




AHADP28 


000000 


569 




AMADP3a 


000007- 


569 




AMADR 4« 


000000 


569 




AMAMSls 


000000 


569 




AMAMS28 


000000 


569 




AMAMS3« 


000000 


569 




AMAMS4« 


P00000 


569 




AMSGAO« 


000000 


569 


577 


AMSGLGs 


000000 


569 


578 


AMSGTYs 


000000 


569 


571 


AMTYPls 


000000 


569 






000000 


569 




AMI YP3« 


000000 


569 




AMT¥P4a 


000000 


569 




APASS ■ 


000000 


569 


574 


APRIOP" 


000000 


569 




APTCSUa 


000040 


1060 


1171* 


APTENVa 


000001 


1053 


1127 


APTSIZ" 


000200 


621 


U68# 


APTSpO. 


000100 


1055 


1129 


ASWREGs 


000000 


569 


582 


ATESTNs 


000000 


569 


573 


AUMT a 


000000 


569 


576 


AUSWR s 


000000 


569 


583 


AUTACT 


002322 


698 


849$ 


AUTEPM 


006064 


865 


15561 
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699 
718 



708 
726 



750 
805 



780« 
812* 



1169D 
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CZM9AF.P1 1 17»APP-79 


1 M 1 1 2 




CROSS I 


AUTEPR 


002612 


852 


8 fa 4 * 




AUT1 


002524 


9508 


854 




AUT2 


002S7P 


857* 


859s 




AUT3 


002572 


856 


860* 




AVECT 1 a 


000000 


569 






AVECT28 


0^0000 


569 






BIT0 a 


00000 1 


485* 






BIT00 a 


00000 1 


475 * 


485 




BIT01 » 


000002 


4741 


J84 




PITw2 « 


00000 4 


473* 


483 




PIX03 8 


0000 1 


472* 


482 




BIT04 s 




471 » 


481 




BIT05 s 


0000 40 


470* 


480 




BIT06 a 


000! 100 


469* 


479 




BIT07 a 


000200 


4688 


478 




BIT0P a 


000400 


467* 


477 






001 000 


466* 


476 




BIT 1 a 


00000 2 


484* 






BIJJ0 b 


002000 


465« 






BIT1 1 a 


004.300 


464* 






BIT12 » 


10000 


463* 






BIT1 3 a 


020000 


462* 






BIT1 4 » 


042000 


461 It 






BIT15 a 


1 00000 


460* 






BIT2 b 


000004 


483* 






BIT3 a 


00001 


482* 






BIT4 s 


000020 


48 1 « 






BITS s 


000040 


480* 






B IT6 a 


000 t 00 


479* 






BII7 s 


000200 


478* 






BXT8 a 


000400 


477* 






BIT9 a 


001 000 


476* 






BPTVEC 8 


000014 


492* 






CARLF 


006015 


832 


837 


1548* 


CHECK 


001510 


642 


644 


646 


CH0 


00] 566 


679 


686* 




CHI 


001644 


688 


697 


699* 


CKt 


001 736 


700 


713 


718* 


CK2 


002030 


719 


731 


736* 


CLLAST 


002204 


773 


775* 




CLP0 


002252 


784* 


790 




CLP1 


002264 


785 


787* 




CLP2 


002316 


794 


796* 




CL0 


002 102 


751 * 


757 


774 


CM 


002146 


765* 






CL2 


002170 


762 


771* 




CL3 


002122 


753 


7 5 8* 




COLON 


006060 


841 


5 555* 




CP « 


000015 


400* 


1099 


1109 


CRC 


002074 


681 


689 


750* 


CBLF ■ 


000200 


401* 


1070 


1109 


DATLNl 


0016)06 


523* 


636* 


664* 


DATLN2 


001012 


555* 


640* 


672» 


DDISP s 


177570 


407* 


609 




DISPLA 


001002 


521* 


609* 


617* 


DISPRE 


000174 


508* 


617 





USER SYMBOLS 



SEQ 0033 



678 
687 



683 
691 



818 
823 
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MAC ¥11 
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CROSS REFERENCE. 


DS*fi « 


J77570 




406* 


608 




EMTVEC* 


000030 




495* 






ENDOT 


002446 




825 


827* 




EOTST 


005476 




739 


828 


1509* 


ERRVEC* 


000004 




488* 


606 


607* 618* 


EXCPC 


001016 




527* 


637# 


652* 699 


EXCRMG 


005361 




703 


1 493* 




EXLPC 


001020 




528* 


636* 


656* 718 


EXLPMG 


005404 




721 


1497* 




GETCRC 


005311 




65? 


1485* 




GETIN 


001370 




b34 


643* 




GETLPC 


0H5335 




654 


1489* 




GET2 


001440 




648 


657* 




GNS 8 


****** 


U 


507 


1323 


1324 1325 


GOAGIN 


002070 




742 


748* 




HT b 


0000J 1 




398* 


1068 


1109 


IOTVECb 


000020 




493* 






LF * 


000012 




399* 


U«3 


1109 


LPC 


002344 




685 


693 


805* 


LPC1 


002352 




806* 


811 




LPC 2 


002366 




8£8 


810* 




MSG1 


006106 




1462 


1560* 




MSG10 


006244 




J 469 


1581* 




MSG1 1 


006270 




1 470 


1585* 




MSG12 


006347 




1471 


1593* 




MSG13 


006364 




1472 


1596* 




MSG14 


006401 




1473 


1599* 




MSG15 


006416 




1474 


1602* 




MSG16 


006433 




1475 


1605* 




MSG2 


006123 




1463 


1563* 




MSG3 


006140 




1464 


1566* 




MSG4 


006155 




1465 


1569# 




HSG5 


006175 




1466 


1572* 




MSG6 


006212 




1467 


1575* 




MSG7 


006227 




1468 


1578* 




PABCNT 


001026 




531 * 


782* 


786# 793 


PARITY 


002242 




758 


782* 




PIPO a 


177772 




405* 






PlROVEs 


000240 




499* 






PR0 a 


000000 




422* 






PR1 » 


000040 




423* 






PR2 a 


000100 




424* 






PR3 a 


000140 




425* 






PR4 a 


000200 




426* 






PR5 * 


000240 




427* 






PR6 a 


000300 




428* 






PR7 a 


000340 




429* 






PS a 


177776 




402* 


403 


516* 


PSW a 


177776 




403* 






pWRVECa 


000024 




494* 


602# 


603* 1253* 


RDCHR s 


104405 




921 


1329* 




RDLIN s 


104406 




996 


1330* 




RDOCT a 


104407 




651 


655 


659 663 


REST RT 


001274 




626 


630* 


748 


RESVECa 


000010 




489* 






ROMSA1 


001004 




522* 


639« 


660* 680 



704 
722 



860* 
861* 



1331 



1254* 1263* 



817 



1269* 
13318 



1281* 
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ROMSA2 

SAl 

SA2 

SIZE1 

SXZE2 

SP2 

STACK a 
START 
STKLMT* 
ST2 
SWR 
SWREG 
SW0 s 
SW00 s 
SW01 a 
SW02 s 
SW03 a 
SW04 a 
SW05 a 
SW06 m 
SW07 
SW0B 
S&09 a 
SW1 8 
5k 10 a 
SWU a 
SW12 s 
SW I 3 ■ 
SW14 8 
SW1S ■ 
SW2 a 
SW3 a 
SW4 s 
SW5 a 
SW6 a 
SW7 8 
SWfl a 
S*»9 a 
TBITVEs 
TDLN1 
TDLN2 
TITL 
TKVEC « 
TMSG 
TPVEC s 
TRAPVEa 
TRM5A1 
TPMSA2 
TRTVEC" 
TXCRC 
TXLPC 
TYP 

TYPE a 



001010 
005515 
005575 
005655 
005735 
006020 
001 100 
001076 
177774 
fc/01320 



000176 
000001 
000001 
000002 

000004 

000010 
000020 
000040 



000200 



001000 

000002 
002000 
004000 
010000 



040000 
100000 
000004 
000010 
000020 
000040 



000200 
000100 



000014 
004766 
005106 
005276 
000060 
005226 
000064 



005036 
005156 
000014 
004644 
004714 
002454 
1P4401 



TYPHDP k/06023 



524* 

658 

666 

662 

670 

845 

393* 

512 

404* 

635* 

520* 

509* 

457# 

447* 

446 (t 

445* 

444* 

443* 

442* 

441* 

440* 

439* 

438* 

456* 

417# 

436* 

435* 

434* 

433* 

432* 

455* 

454* 

453* 

452* 

451* 

450* 

449* 

448* 

490* 

638 

640 

628 

497* 

851 

498* 

4^6* 

639 

641 

491* 

637 

636 

821 

627 

827 

951 

816 



641* 
1512* 
1521* 
1530* 
1539* 
1549* 

514 



608* 
616 

457 
456 
455 
454 
453 
452 
451 
450 
449 
448 



1376* 
1418* 
1 483* 



517* 
1397* 
1439* 

853 
861 
826 
649 
831 
954 
1550* 



) 



610 
632 



623* 



1461* 

600* 



860 


1333* 




















1354* 






















831* 






















653 


657 


661 


665 


669 


702 


706 


720 


724 


7J8 


815 


836 


840 


844 


858 


864 


928 


934 


939 


943 


948 


949 


958 


1025 


1027 


1073 


1232 


1283 


1323* 
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TABLE ■ 


TYPOC a 


104402 




705 


709 


723 


727 


839 


TYPON a 


104404 




1 326* 










TYPOS s 


104403 




1325* 










TYPOUT 


001030 




511* 


513* 


532* 


647 


673 


TYPROM 


002402 




675 


815* 








TYPR1 


002426 




820 


822* 








TYP0 


002462 




834* 


847 








TYP2 


002504 




8 35 


842* 








TYP3 


002470 




833 


836* 








XOR 


002320 




759 


798* 


809 






XORS 


001014 




526* 


750* 


771* 


775 


776* 








812 










gAPTMD 


001032 




553 


559* 








IASTATb 


««»*«« 


U 


1149 


1164 








SATYC 


003742 




1120 


1122* 








9ATY1 


003716 




1118* 










8A1Y3 


003724 




1058 


11 19« 








SATY4 


003734 




1121* 










SCHARC 


003702 




1075* 


1085* 


1092 


1101* 


1 106* 


SCKSWRa 


#*##*# 


U 


1329 










SCMTAGa 


###«** 


u 


598 










SCNTLG 


003235 




972» 










SCNTLU 


003230 




943 


971# 








ICPUOP 


901074 




584# 










$CRLF 


003225 




948 


969* 


1030 


1074 


1115 


SDEVCT 


001056 




575* 










SENDAD 


002060 




540 


625 


710 


728 


736 


SENV 


001066 




580* 


645 


694 


712 


730 


SENVM 


001067 




581* 


621 


1055 


1060 


1129 


IETABL 


001066 




579* 










JETENO 


001076 




565 


591* 








SFATAL 


K01050 




572* 


594* 


714* 


732* 


866* 


IFFLG 


004162 




1118* 


1121* 


1149 


1158* 


1 166* 


$FJUC 


003714 




1078 


1113* 








SFILLS 


003713 




1112* 










gGTSWRs 


»*»«#* 


u 


1328 










8 HIBT5 


001032 




560* 










IHIOCT 


003422 




1018* 


1029* 








8ILLUP 


004552 




1253 


1269 


1286* 






SLF 


003226 




958 


970* 


1030 


1115 




ILFLG 


004161 




1159* 


U65* 








IMAIL 


001046 




561 


565 


570* 


620 


1053 


JMBADP, 


001034 




561* 










IMFLG 


004160 




1119* 


1125 


1160* 


1164* 




$MNEW 


0C32S3 




975* 










SMSGAD 


001062 




577* 


1135* 


1138 






3MSGLG 


001064 




578* 


1140* 








SMSGTY 


001046 




571* 


595* 


715* 


733* 


867* 


«M5WP 


003242 




973* 










INULL 


003712 




1080 


1111* 








gOCNT 


004406 




1204* 


1233* 


12468 






SOMODE 


004410 




1199* 


1203* 


1208 


1211* 


1222* 


SPASS 


001054 




574* 


620* 


740* 






SPASTM 


001040 




563* 










$?omp 


004560 




1284 


1289* 








IPWPDN 


004412 




602 


1253* 


1281 







843 1J248 



776* 777* 779* 



8P1* 



744* 
1053 



855 
1127 



1133 



1248* 



1153 
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SPkiRMf: 


004546 




1 284* 










8P WPUP 


C\ (A A. .Ud 




* "ok f 


1269 c 










WW 3 C 




??! 




1 


1030 




annrna 


r'Vf io'tv 






1 329 








9KUU&C 85 




u 


1332 










$RDLIN 






9 1 6 f 


13 30 








& D ft Al"< f 

f FQUGT 


ft- 3264 






1331 








irua£ 8 


0000 1 




909S 










8R2 A a 


****** 


U 


13^2 










SSAVRE* 


#####* 


U 


13 32 










f SAVR6 


004556 




1 262* 


1 270 


1271* 


1272* 


1 288 * 


ISLTUr * 


00001 4 




510* 


399 


600 


602 


604 


SSTUP a 


J 77777 




510* 










SSVPC 8 


001 032 




538* 


543 








85WP s 


000000 




389* 


1 285 








$ S WF. EG 


001070 




582* 


623 








sT&STN 


001 052 




573* 


596# 








STKB 


002636 




874* 


892 


898 






S1KS 


002634 




873* 


890 


896 






8TPB 


0037 10 




1 098* 


1 1 10* 








$TPFLG 


0037 1 5 




1047 


1114k 








SIPS 


003706 




1096 


1109* 








STRAP 


004570 




600 


1 300* 








STPAP2 


00461 2 




1 31 1 # 


1322 








STRP s 


0000 1 




I 3 1 5 # 


1 324* 


1 325* 


1 326# 


1 327 * 


STRPAD 


004624 




1 305 


1322* 








8TSTH 


00t 036 




562 * 










•TTVTM 
S il * A" 


0032 1 4 




918 


919 


931 


949 


9b 3 


IIIPPNB 


****** 


u 


1327 










STYPDS* 


****** 


u 


1327 










8TYPE 


003424 




1 047 * 


1146 


1315 


1323 




STIPtt 


003636 




1077 


1084 


1091 


1096 * 


1097 


STsrbA 


ion J # V) * 




1102 


* l** 


1 1 07 * 






S I IrUC 


v?042 Ik 




1202* 


1324 








STYPON 


004224 




1201 


1204* 


1326 






8TYP0S 


004164 




1197# 


1325 








SUNIT 


001060 




576* 










SUNITM 


001042 




564# 










SUSWR 


001072 




583* 










80FILL 


004407 




1198# 


1202* 


1212 


1 247* 




» s 


006511 




500* 


503* 


507* 


510* 


519# 








873 


874 


967* 


9f>8 


969 








1114 


1115 


1167* 


1265 


1287 


.SASTAs 


*••««» 


u 


1119 


1122 








,SX ■ 


001032 




549# 


554 









538 
970 



539* 
977 



541* 
1030 



543* 
1109 



549 

1110 



550* 
1111 



552* 
1112 



554* 
1113 



, ABS , 006511 000 



ERRORS DETECTED 1 

CEM9AE,BIN,CZM9AE,SEQ/CRF/S0L/NL|T0CbSY5MAC,SML,CEM9AE,PU 
RUN-TlMEt 38 33 1 SECONDS 
RUN-TIMl RATIO! 356/74«4.7 
CORE USED! 32K (63 PAGES) 
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SEQ 00i» 



